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ABSTRACT 



This thesis is an attempt to prove the value of the 
Control System Design Environment by designing a shipboard— 
or ground-based data link receiver to communicate with the 
data link installed in the Coast Guard HH— 65A helicopter. 
The Control System Design Environment was intended to allow 
a designer to use a highlevel language to describe the 
required inputs and outputs of a system. This high-level 
language, the Control System Design Language (CSDL) is 
translated into a list of primitives by a Pascal program, 
CSDL. PAS. The primitive list is then compiled into assembly 
language by a FORTRAN program, NEWCSDL.FOR. The final 
output includes the hardware and software lists to build a 
controller that meets the designer's specifications. This 
particular project includes a project design much more 
ambitious than any previously attempted in the Control 
System Design Environment. 
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I. INTRODUCTION 



The design of electonic equipment, including micro- 
processor-control 1 ed equipment, has tradi t i onal 1 y been a 
time and money consuming proposition. The design must be 
worked out manually and paper-tested, changes and 
improvements made, and more paper —test i ng performed. When 
it appears that the design is feasible, one or more 
prototypes are built and tested. Building prototypes is 
expensive because they are 1 abor-i nt ensi ve and fail to 
benefit from economies of scale. The use of computer aided 
design (CAD) has become more prevalent in many design 
applications in recent years because of these reasons- One 
such design aid is the Control System Design Environment 
proposed by Matelan CRef. 1] and implemented by Ross [Ref. 

2:. 

The Control System Design Environment makes use of the 
Control System Design Language (CSDL) . This high-level 
language provides the user with a method to describe the 
inputs and outputs of a controller and specify time 
constraints for completion of the required tasks. A 
translator program takes the CSDL problem statement written 
by the user, tests the syntax, and then generates symbol and 
variable tables. It also translates the CSDL statements 
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into a -format called the primitives list with the associated 
parameters and selection criteria. The primitives are used 
as macro calls to the realization libraries. These 
libraries are based on families of mi cr opr ocessor s . The 
original library built by Ross consisted solely of the Intel 
8080 family. Recent additions to the realization libraries 
include the Zilog Z80 by Smith CRef. 33 and the Intel 8086 
by Cetel CRef. 43. 

A family of mi cropr ocessor s is chosen for the 
implementation by the designer and noted in the CSDL 
description. A solution is attempted and if it fails, 
another family is chosen and another solution is tried. If 
all families fail, the failure is reported to the user. 
When there is a success, software is generated to support 
the hardware, and monitor code is output for the overall 
control of the system. The automation of these functions 
makes it possible to rapidly and inexpensively design, 
build, and test prototypes. The ability to describe the 
functional specifications of a control process in a 
high-level language and let the CSDE provide output in form 
of hardware and software design can greatly simplify the 
work involved and thus lower the cost of producing working 
prototypes . 

The application of the Control System Design 
Environment (CSDE) to the design of hardware and software 
for controller applications has been explored by a number of 
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researchers since Ross -first designed CSDL- Some o-f those 
who have contributed to CSDE include Carson, Cetel , 
Heilstedt, Pollock, Riley, Sherlock, Smith, Walden, and 
Woffinden. Their accomplishments and contributions are all 
recorded in their respective theses. [Refs. 3-133 

The goal of this thesis is to attempt a validation of 
the Control System Design Environment. This will be 
accomplished by using CSDE to design a microprocessor — based 
data link receiver for the data link to be installed in the 
Coast Guard HH— 65A helicopter. Since CSDE was designed to 
produce process controllers, the production of a data link 
receiver will demonstrate the flexibility of the Control 
System Design Environment to handle additional and more 
complex types of problem descriptions beyond those 
considered in the original design of CSDE. 

This project is a departure both in size and scope 
from any previous attempt at using the CSDE system. Several 
researchers have used CSDE to design controllers. Pollock 
used CSDE to design a fuel injection system for an 
automobile in 1981 CRef. 143. Heilstedt designed digital 
filters using CSDE in 1983 CRef 15]. The latest CSDE design 
is an automatic start sequencer for a jet engine performed 
by Riley in 1984 CRef. 163. The design of a micro- 
processor — based data link receiver is a much more ambitious 
application than any of these previous works. It requires 
the movement of strings of data throughout the system while 
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watching for keyboard input from an operator. The goal of 
the project is concerned with the use and abilities of the 
CSDE and not with producing a working prototype of a unit 
that will function according to Coast Guard requi r ement s. 
The data link receiver will be a subset of and not a 
complete implementation of the Coast Guard requirements and 
specifications as outlined in the next chapter. 
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II, DATA LINK RECEIVER SPECIFICATIONS 



Development of systems, including computer systems, 
can be costly due to the time and effort required to design, 
build, and test prototypes. The use of the Control System 
Design Environment can dramatically reduce the time and 
effort involved in designing a mi cr opr ocessor system and in 
producing the associated software. The cost of a system is 
spread over the number of items produced, and in general , 
prototypes are produced in small, and thus expensive, 
quantities. The automation of the design of hardware and 
software promises to greatly reduce the cost of the design 
and prototyping portions of new systems development, 
especially those systems that will be produced in small 
numbers . 

An example of a system currently under development was 
chosen for an implementation under CSDE for this thesis. 
The U.S. Coast Guard is presently acquiring a new heli- 
copter, the HH-65A. One of the features of the aircraft 
avionics suite is a data link transceiver which will 
automat i cal 1 y send and receive flight information data. 
Unfortunately, there i s no compatable transceiver available 
for use aboard Coast Guard cutters or at air stations. The 
potential contributions to a wide range of Coast Guard 
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missions, not to mention the safety of flight ramif ications, 
make automated communications between Coast Guard 
operational units via data link extremely desirable. 

It is virtually impossible today for the U. S. Coast 
Guard to conduct truly covert law enforcement operations 
with helicopters deployed aboard cutters or based at air 
stations. Safety procedures call for a number of emitters 
to be employed for the duration of the flight- A properly 
equipped smuggling operation can gain considerable 
intelligence against the Coast Guard, particularly from 
voice communi cat i ons. Voice communications are notoriously 
susceptible to monitoring with any of a number of relatively 
inexpensive scanners available in the electronics market. 
Making such communi cat i ons protected or secure can deny the 
smuggler the information contained in the transmissions, but 
it cannot conceal Coast Guard presence during the critical 
preliminary search- A system is needed that will allow the 
passing of safety and other important data between a 
helicopter and its cutter or air station and, at the same 
time, lend a higher degree of covertness to the operation. 
Since the new HH-65A helicopter is being built with a data 
link capability installed as part of its avionics package, 
there exists an opportunity to conduct covert law 
enforcement operations with cutters or air stations. Since 
the data link can send position and operations information 
automat i cal 1 y using preselected time periods, the pilots are 
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relieved of one more duty that distracts from the mission 
accompl i shment . 

From the pilots’ point of view, a data link capability 
means that their attention need not be diverted from the 
normal scan of aircraft instruments, the airspace around the 
helicopter, and the water or ground over which they are 
searching. The onboard computer system does many of the 
navigation functions automat i cal 1 y and, with the install- 
ation of data link capability, can make the required 
operations reports to the controlling Coast Guard unit. On 
a typical mission the aircrew must monitor the UHF and/or HF 
radios for communications with their controlling unit, the 
VHF— AM radio for normal communi cat i ons with FAA facilities 
and other aircraft, and the VHF-FM radio for communications 
with vessels. Thus, the pilots must monitor up to four 
different radios si mul taneousl y while communicating with 
other members of the aircrew over the internal 
communications system (ICS). These commun i cat i ons 
requirements ta>: the concentr at i on of the aircrew and 
contributes to their fatigue. The data link can relieve the 
crew of one duty while enhancing the security of the flight 
operat i on . 

The Coast Guard Office of Operations sent a memorandum 
to the Office of Research and Development in June 1983 
requesting development of a shipboard version of the data 
link- The performance standards and specifications listed in 



that request have been used as a basis for the functional 
specifications for the CSDE implementation of this thesis 
proj ect . 

The performance standards and criteria outlined in the 
request for support specified a "shipboard version of the 
data link built into the HH-65A hel i copter " - This language 
does not reflect the possible use of the data link at a 
Coast Guard Air Station- This thesis will assume that the 
design of shipboard equipment will be more than capable of 
working ashore as well as at sea. 

It would be possible to use a commercially available 
mi crocomputer for this project- Writing the assembly 
language software to drive that system would not be too 
difficult- This approach, however, would provide a software 
engineering problem without adding anything new to the 
knowledge base of computer-aided design- It is far more 
enlightening to attempt the project through the use of CSDE 
in order to reduce design costs for new systems. 

The goal of this project is concerned with the use and 
abilities of the CSDE and not with producing a working 
prototype of a data link receiver unit that will function 
according to Coast Guard requirements. The data link 
receiver designed using CSDE will be a subset of and not a 
complete implementation of the speci f ications listed by the 
Office of Operations- Because of this, there will be no 
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effort to fully meet the performance requirements specified 
in the request for support. 

The following is a listing of the requirements and 
performance standards as stated in the request and describes 
how each will be addressed in this project. 

The data link receiver system: 

1. Must operate on all frequencies (selectable) 
from HF to UHF (30.000-399.975 MHz). 

Comment: This is outside the scope of the 

thesis work and will be assumed to have been met. 

The point of this thesis is not the solution of 
interfacing problems with the radio tr ansmi tters. 

2. Must be compatible with the AN/ARC-182 
transceiver on the HH-65A helicopter. 

Comment: This is outside the scope of the 

thesis work for the same reasons as cited in the 
paragraph above and will be assumed to have been 
met - 



3. Must be compatible with data link system 
presently installed in the HH-65A. This system, 
manuf actured by Collins, operates at a 300 baud rate 
with data burst. 
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Comment: This is central to the design but 
little information was available for use in this 
thesis. The details will be addressed later in this 
sect i on . 

4. Must be of the smallest size and weight 
practicable for installation in CIC/CSC on all 
flight-deck equipped cutters, up to 200 feet from 
transceiver and antenna. A remote readout for the 
pilothouse is extremely desirable. 

Comment: The small size and weight should 
follow from an efficient design. The installation 
aboard cutters will be assumed as will the solution 
regarding the distance between transceiver and 
antenna. The remote readout requirement will not be 
addressed. It is expected that the addition of a 
remote readout will be relatively simple when the 
system design is complete. 

5. Must be capable of automatically tracking and 
polling at least three aircraft in sequence at 
selective time intervals from 5-30 minutes, and must 
be capable of manually polling an aircraft data 
link. 

Comment: These requirements will be met in 

ful 1 . 
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6. Must be capable of providing an automatic 
response to an aircraft interrogation. This 
response would give the cutter's position by the 
best electronic navigational aids available and 
would provide for data verification, as in the 
HH-65A system. 

Comment: The acknowledgement of a message 
receipt and the reply with a position will be met. 
Provisions for manual input of navigation 
information for use with a stationary receiving unit 
(an air station) will be included. This will also 
mean that manual input will be possible aboard a 
cutter if the electronic navigational aids become 
unusable. The data verification will not be 
included for reasons stated later. 

Attempts to acquire the actual protocols for the 
communications and the technical specifications for the data 
link equipment installed in the HH-65A helicopters failed- 
Coast Guard sources could not provide the necessary infor- 
mation. The Collins Government Avionics Division of 
Rockwell Internat i onal Corporation, makers of the HH-65A 
data link, did not respond to requests for the information. 
The protocols, message formats, and other speci f i cat i ons 
used in this thesis are estimates of what and how the data 
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link system should work and not the result of any 
proppropr i etary i nformation - 

The data link receiver is configured as shown in 
Figure 1- There are four inputs: from the radio interface 
unit, the electronic navigation devices interface unit, the 
clock, and the keyboard- There are four outputs: to the 
radio interface unit, the video display unit, the printer, 
and the clock. All inputs to and outputs from the system are 
digital signals using ASCII code. 

There is a pattern of levels of abstraction in this 
view of the project- At the center is the data link 
receiver processor designed for this thesis- This processor 
is responsible for the proper routing of messages to and 
from memory, calling menus from ROM and sending them to the 
video display terminal, updating positions, and performing 
tasks in response to input from the keyboard- It is assumed 
that there is a radio interface unit that receives and 
processes all signals- If a message is addressed for this 
particular Coast Guard unit, then the radio interface unit 
receives the message, checks the correctness of the message, 
and sets a flag to tell the data link receiver controller 
that a message awaits. 

The electronic navigation devices are an abstraction 
for the actual machines that compute the receiver unit’s 
position. These devices may include LORAN-C, OMEGA, 
navigation satellites, or any other navigation instruments 
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DATA LINK RECEIVER 




Figure 1 
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that may be polled by the navigation interface unit. 



These 



devices pass their position information to the navigation 
interface which sets a flag to let the main processor know 
that a new position has been computed. The system operator 
may override the automatic polling of the interface unit by 
the system processor in the event of a malfunction in the 
navigation instruments. In the case of a shore unit, there 
is no need for a navigation interface. The operator would 
manually enter the position of the air station and set the 
system to prevent the interface being polled in the case 
where the receiving unit is a shore unit and thus in a 
constant position. The same method could be used for a ship 
at anchor when most navigation devices are normally secured. 
It is essential that the ship’s position be sent as often as 
necessary to keep the helicopter’s computer updated. 

The third input comes from a clock. The clock is used 
for time-stamping the positions computed by the navigation 
devices. This information is passed as part of the acknow- 
ledgement messages sent in response to a helicopter’s 
message and also when polling helicopters. The radio 
interface unit is assumed to have direct access to the clock 
to obtain the time. The output to the clock from the 
processor is for setting the date and time and is entered by 
the operator through the keyboard. 

All commands to the system are entered using a 
keyboard. Menus are provided on the video display unit for 
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the operator's assistance. Most inputs through the keyboard 
consist of single keystrokes for the selection of operations 
as listed in the menu currently displayed. There are 
several cases where more than one keystroke is required. 
When an aircraft is logged into or out of the system, the 
clock is set, or the position of the receiving unit is 
manually inserted, the operator must enter the appropriate 
number of characters. 

The video display unit may consist of some sort of 
smart terminal or it may be an interface unit between the 
main data link processor and the VDT. In either case, the 
data link receiver's processor need only send certain codes 
to the video display port. These codes trigger the 
appropriate actions by which a driver in the video display 
interface causes the menus to be displayed on the screen. 
Messages from the helicopters are displayed in a similar 
manner. This is another advantage of the levels of 
abstraction. The technology, archi tecture, and implementa- 
tion of the device is invisible to the data link receiver 
processor . 

The printer receives its commands and data in a manner 
similar to that of the video display terminal. It does not 
receive as much text as the VDT because the menus are not 
printed. It exists in the system mainly to provide hard 
copy output of the message traffic during a mission. Should 
the hard copy not be required or desired, the operator has 
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only to secure the power switch of the printer. This makes 
the overall system simpler because there is no need to 
include an on/off function for the printer in the system. 

This approach of levels of abstractions is a 
reasonable one for several reasons. It would be difficult 
for CSDE to design a controller that would perform all the 
requirements of this controller and still be able to meet 
the required time constraints for each task. The overal 1 
system must monitor the airwaves, receive a message, check 
it for validity, and store it properly not to mention all 
the other functions required to drive the video display 
unit, monitor the keyboard for input, and other such tasks. 

One criticism of CSDE has been that there is no way to 
force a design with two CPUs CRef.171. CSDE will design a 
system with two processors when one cannot perform all the 
functions set forth by the designer within the required time 
constraints. Nor does CSDE presently allow for more than 
two CPUs. There are, however, ways around these limit- 
ations. The central part of the receiver is designed with 
the assumption of several "smart" interfaces. These other 
interface units may also be designed using CSDE as long as 
the user is careful to specify compatible links between the 
units. The result is a number of processors integrated into 
one system much as an operating system or a communications 
network may be viewed as consisting of layers. 



The radio inter -face will receive messages sent to the 
particular receiving unit. The message will be tested for 
completeness and correctness. If the message passes this 
test, it is held in a buffer and a status flag set. The 
processor checks the status bit when it polls the radio 
receiver and if it is set, it reads the message into memory 
in a serial fashion and passes it to the video display unit 
and the printer. 

The radios, navigation devices, and the keyboard are 
polled according to the time constraints in the CSDL 
contingency list. The number of polls of a device per time 
period vary with the immediacy of the input. For instance, 
the keyboard will be polled more often than the navigation 
device. The system must respond to keyboard inputs fast or 
the operator may become frustrated or think the system is 
locked up. The position of the unit doesn't change at a 
fast rate so the position need only be updated every minute 
or so. 

The system will handle at least three helicopters 
simultaneously. A maximum of ten aircraft may be logged in 
at any given time. The tail numbers of the helicopters must 
be logged into the system memory manually by the system 
operator. The system will receive and process messages from 
an aircraft not logged in as long as the receiving unit is 
specifically addressed in the message. It will not. 



however, poll any helicopter that is not logged into the 
system . 

The polling of aircraft is done either automatically 
or manually as selected by the operator. If the polling is 
on automatic, the operator must select a polling time period 
from 1 to 30 minutes in duration. The normal reporting 
period for a Coast Guard helicopter is every 15 minutes. 
The performance standards and criteria for the system 
specified periods between five and thiry minutes. A one 
minute interval was added for closer monitoring of a 
helicopter during an in— flight emergency or a critical 
period during a search and rescue case or law enforcement 
act i on . 

Messages from the helicopters are fixed in format. 
The messages are received and held in a buffer by the radio 
interface. While the message is read into memory, it is 
printed on the video display terminal and on the printer. 
Messages are acknowledged by the radio interface by sending 
the position of the receiving unit and the time the position 
was calculated back to the helicopter. The position is 
read from the navigation interface by the processor and 
stored in memory. It is called from memory when needed and 
passed serially to the radio interface. 



A garbled 


message from 


an 


aircraft is 


not 


acknowl edged . 


When 


a message i s 


not 


acknowledged , 


the 


hel i copter *’ s 


data 


link processor 


will 


resend the message 
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after waiting a random period of time. The message will be 
sent again and again with random wait times between 
transmissions until acknowledged. After being sent a 
certain number of times without acknowledgement, the pilots 
are notified by a message printed on their VDTs. 

If two or more helicopters send messages simul- 
taneously, none will be acknowledged. This contention is 
not serious since the helicopters will resend their messages 
after waiting a random period. The messages are short (less 
than 64 bytes sent at 300 baud) and most cutters operate 
with only one helicopter at a time. An exception are the 
five polar icebreakers that normally carry two helicopters. 
Operations from air stations present the highest probability 
of contention since they might have two or more helicopters 
airborne on missions at the same time. The short duration 
of the messages coupled with the few aircraft generally 
under the control of one unit plus the random timing for 
resending a message creates a situation where the contention 
i s sel f -correct i ng . 

The messages are stored in the same packed form as 
they are received. When the messages are processed for 
display, they are filled out with the necessary descriptive 
enhancements. The overlays or templates for this purpose 
reside in ROM and are inserted by the video display unit as 
the messages are displayed on the VDT. The system has the 
ability to store the last ten messages received in memory. 
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The protocol of the data link transmissions include 
the preamble, control data, and information. The preamble 
and control data sections are used by the radio interface. 
The information section alone is passed to the processor by 
the radio interface. The information section of the message 
follows the format below. The number of characters in each 
field are shown in parentheses. 

1. Helicopter number. (From) 

4 digits (1409) 

2. Ship/ground station identifier. (To) 

4 digits (7184) 

3. Date and time. (DTG for message numbering) 

12 characters (31 1545ZMAY84) 

4. Position time. (This is the time the position 
was calculated. The time may be local or Zulu, 
depending on local doctrine). 

4 digits (1543) 

5. Message type. (Message types include normal 
position reports, poll response, etc., or mission 
type such as fisheries patrol, drug i nter di c t i on , 
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search and rescue, etc., and can declare an aircraft 
emergency) 

1 character (3) 

6. Position. (Latitude/Longitude. Format is 

degrees, minutes, and tenths of minutes followed by 
N or S for latitude, E or W for longitude? i.e., 
Lat = ddmmtN, Long = dddmmtW) 

13 characters (36429N088321 W) 

7. Ground speed (in knots). 

3 digits (105) 

8. Track (in degrees true). 

3 digits (220) 

9. Fuel (in pounds, less reserve). 

4 digits (1200) 

10. Wind direction (in degrees true). 

3 digits (345) 

11. Wind velocity (in knots). 

3 digits (022) 
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12- Altitude (in hundreds of feet). 



2 digits (12) 

13. CRC (cyclic redundancy check. This is used in 
the radio interface unit but is not read into the 
processor's memory) . 

Each field of the message will be complete, that is, 
each field will use its full number of characters. If the 
information for a particular field is unavailable for some 
reason (the failure of an instrument such as the 
omnidi rect i onal airspeed indicator or lack of an updated 
position because of loss of LORAN lock on) the field will be 
filled with blanks (20H) . Fields that are short will use 
blanks (20H) or zeroes (00H) as appropriate to pad the data 
field. 

The format for the examples given above looks like 

this: 

31 34 30 39 37 31 38 34 33 31 31 35 34 35 5A 4D 41 59 38 
34 31 35 34 33 33 33 36 34 32 39 4E 30 38 38 33 32 31 57 
31 30 35 32 32 30 31 32 30 30 33 34 35 30 32 32 31 32 

These numbers are hexidecimal representat ions of the ASCII 
characters for the numbers and letters used in the 
ex amp 1 es. 
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Keyboard inputs provide the operator's control over 
the system. The input system is simplified to the point 
where single keystrokes are all that are necessary to invoke 
different functions. When a keyboard input is detected, the 
appropriate menu is placed on the video display unit. The 
operator uses single keystrokes to select and invoke the 
different system functions. The menus are contained in ROM 
and are written to the VDT by the video display unit 
interface. The data link receiver processor sends the 
appropriate code to the video display unit interface to call 
the menus to the screen. 
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III. CSDL DESIGN 



The Control System Design Environment was first 
proposed by Matelan CRef. 181 as a method of simplifying the 
design of process controllers. Ross implemented the Control 
System Design Language (CSDL) as part of this environment 
CRef. 191. The designer of a controller system describes 
the inputs and outputs needed and the required response 
times for different functions. Using this high-level 
language makes the design of the controller much simpler 
than it would be without the use of computer — ai ded design 
tool s. 

Some of the syntax rules of CSDL should be mentioned. 
CSDL programs must be in upper case characters only. Most 
statements end in a semicolon. The names of functions end 
with a colon while task names end with a semicolon. The 
final end statement has no punctuation. Variable names 
cannot exceed ten characters. Because they are later 
truncated to six characters, the user should insure that the 
first six characters in a name are unique- A complete 
listing of the formal syntax of CSDL is available in 
Carson’s thesis CRef. 201. 

There are five sections to CSDL programs. The 
sections are Identification, Environment, Contingency List, 
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and Procedures. The Identification section is simply the 
name of the designer, the date, and the project name. It is 
intended to identify the program and does not have any 
effect when the program is run. It appears in this format: 
IDENTIFICATION 

DESIGNER : "SUTTER FOX" 

DATE : "05—31—84 " 

PROJECT : "COAST GUARD DATA LINK RECEIVER" 

The second section is the design criteria. This is 
the portion of the program where the designer can choose the 
primitive list and processor family for CSDL to use. At 
present there are three realization libraries. They are 
based on the 8080, Z80, and 8086 mi cropr ocessor families. 

The format for the design criteria section is: 

DESIGN CRITERIA 

METRIC FIRST; 

VOLUMES 1; 

MONITORS 15 

METRIC FIRST refers to the first realization that meets the 
the timing requirements of the system. Alternatively, the 
designer may prescribe cost or power as the minimum 

requirements for the system. VOLUMES refers to the 
realization libraries in the order they are numbered. Since 
only one volume was resident when this project was 
translated, the first (and only) volume was designated. As 
with the realization volume, there is only one monitor 
volume for the realization volume, and thus the first (and 
only) monitor is selected. 
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The design variables are declared in the environment 
section- The system for the data link receiver produced 
under CSDL requires a greater number of variables than any 
earlier attempt at a CSDE controller generation . This will 
be discussed in more detail later in this chapter- There 
are three types of variables in a CSDL program- Input 

variables are values that are sensed by the controller from 
the outside of the controller processor- The output 
variables send values outside the controller. The 

declaration of these variables includes the number of lines 

necessary between the controller and the outside world and 

the type of technology desired for their design. The third 
type of variable is the arithmetic variable. Arithmetic 
variables used in computations within the controller 

itself- The declarations made in the environment section 
are analogous to declarations made in a block structured 
language such as Pascal , Ada, or PL/I- The format of the 
environment section is: 

ENVIRONMENT 

I NPUT : KEYFLG , 1 , TTL ; KEYCHAR , 8 , TTL ; 

MANP0S,8,TTL; END INPUT ; 

OUTPUT : MENU, 8, TTLJ POLL, 8, TTL; 

MSGVDT , 8 , TTL ; MSGRCVD , 1 , TTL ; 

END OUTPUT; 

ARITHMETIC : KEYINMAIN, 8; MINTAC,8; 

NEXTMSG, 8; NEXTAC,8; COUNT, 8; 

END ARITHMETIC; 
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The procedures section is much the same as found in 
block structured languages. This section contains the high- 
level descriptions of the arithmetic and data manipulations 
required to make the system work. There are two types of 
blocks within the procedures section: functions and tasks. 

The functions and tasks are always coupled in what are 
referred to as contingency/task pairs. Each function is 
evaluated in its turn as set forth in the contingency list. 
If it is true, its associated task is performed. The 
requirement that each function have one and only one task 
creates some problems with programming with CSDL that will 
be discussed later. An example of a function and a task 
f ol 1 ows. 

FUNCTION KEYINMAIN: 

BINARY, 1 ; 

SENSE (KEYFLAG) ; 

IF KEYFLAG = 1 THEN KEYINMAIN := 1| END IF; 

END KEYINMAIN; 

TASK KBINPMAIN; 

MENU : =o; I SSUE ( MENU ) ; 

SENSE (KEYCHAR); 



IF 


KEYCHAR = 1 


THEN 


MINTAC 


m — 
m 


i; 


END 


IF; 


IF 


KEYCHAR = 2 


THEN 


MMSGDSPLY 


m 


i; 


END 


IF; 


IF 


KEYCHAR = 3 


THEN 


MLOCATION 


m _ 


i; 


END 


IF; 


IF 


KEYCHAR = 4 


THEN 


MCLOCKSET 


m _ 


i; 


END 


IF; 


IF 


KEYCHAR = 5 


THEN 


MLOGINOUT 


; = 


i; 


END 


IF; 



KEYINMAIN := 0; 

END KEYINMAIN; 

FUNCTION KEYINMAIN is called according to the time 
constraints set forth in the contingency list as described 
in the next paragraph. The keyboard active status flag is 
checked by SENSE (KEYFLG) . If the flag is set, then the 
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variable KEYINMAIN is set. Thus, the function is true and 
the associated task KBINPMAIN is performed. This task calls 
for the video display interface to put the appropriate menu 
on the VDT with the statements MENU:=0 and ISSUE (MENU). 
The menu presents the five selections available to the 
operator and waits for input. Upon pressing a number key 
from one to five, the appropriate variable is set to one. 
Note that the variable is the same name as a function in the 
CSDL program. When that particular function is tested and 
is found to be true, its associated task will be performed. 
The final line sets the function associated with the task to 
zero so that it will not be performed again until set. It 
is important in this data link receiver project to insure 
that no more than one function be set at any given time in 
order to preserve the flow of program control. 

The fifth section is the contingency list. In this 
section the designer lists the contingencies (functions) 
that occur and the time constraints for performing the 
associated tasks. This is where CSDL differs greatly from 
languages that execute in a linear manner such as FORTRAN, 
BASIC, or Pascal. The timing requirements may be such that 
some functions are tested several times before another 
certain function is tested at all. Some procedures (tasks) 
may be performed every designated time period. The 
execution of functions and procedures are dependent upon the 
timing requirements the designer delineates in this section 
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of a CSDL program. An example for the contigency section 



CONTINGENCY LIST 



WHEN 


KEYINMAIN 


100 


MS 


DO 


kbinpmain; 


WHEN 


MI NT AC 


100 


MS 


DO 


I NT AC; 


WHEN 


SMMANUAL 


100 


MS 


DO 


MANUAL; 


WHEN 


SMAUTO 


100 


MS 


DO 


AUTO; 


WHEN 


TPOLL 


100 


MS 


DO 


POLL AUTO; 


WHEN 


MLQCATION 


100 


MS 


DO 


LOCATION; 


WHEN 


TMLOCATION 


100 


MS 


DO 


MANL0C; 


WHEN 


POSCH 


100 


MS 


DO 


posupdate; 


WHEN 


MMSGDSPLY 


100 


MS 


DO 


MSGDSPLY; 


WHEN 


MCLOCKSET 


100 


MS 


DO 


clockset; 


WHEN 


MLOGINOUT 


100 


MS 


DO 


loginout; 


WHEN 


TLOGIN 


100 


MS 


DO 


login; 


WHEN 


TLQGOUT 


100 


MS 


DO 


LOGOUT! 


WHEN 


MSGIN 


100 


MS 


DO 


msgstore; 



Writing code in CSDL is not as easy or convenient as 
in many high-level languages. There are several factors 
that can make it a frustrating experience for those who are 
used to the constructs available in languages such as 
Pascal, PL/I, and even BASIC. The reader should not judge 
CSDL too harshly. It should be remembered that the CSDL 
language was designed for simpler controllers than the one 
attempted in this thesis. 

There are no comments in CSDL other than those 
enclosed in quotes in the Identification Section. It is 
widely accepted that commenting within programs makes it 
easier to maintain those programs. Since most candidates 
for a CSDE implementation are relatively simple, and since 
most CSDL programs will be written and implemented in a 
fairly short time, this may not be a very big problem. 
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The data link receiver project would normally be a 
candidate tor an interrupt-driven system. As it is pres- 
ently implemented, CSDL has no ability to design systems 
that use interrupts. 

Since all contingencies and tasks in CSDL must be in a 
one to one ratio, all the functions and tasks have been 
placed together in the listing for this data link receiver 
CSDL program. This makes it clearer for the reader (not to 
mention the programmer) when perusing the code. There are 
many menus in this system and the functions and tasks have 
been named to reflect the fact that some menus are called 
from other menus. The main menu presents five choices. If, 
for instance, the operator selects "Interrogate Aircraft" , 
FUNCTION MINTAC is set to 1 (true). FUNCTION MINTAC is 
paired with TASK INTAC. Functions generally have more 
letters in their names than their tasks since functions 
generally have a prefix added to the name of the associated 
task. TASK INTAC calls up a menu wherein the operator may 
select a return to the main menu without any function being 
carried out, or the operator may elect to interrogate the 
aircraft manually or automatically. If the selection is to 
interrogate automatically, FUNCTION SMAUTO is set true. 
TASK AUTO is paired with FUNCTION SMAUTO, and by now the 
pattern may be clear to the reader. The name of function 
that is set to true by a selection made under the main menu 
is prefixed with an M. A menu called from a task that is 
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associated with "M" function has a function prefixed with 
"SM" for secondary menu- When there is another submenu, the 
function name will be prefixed with "TM" for tertiary menu. 
Tasks have names similar to their associated functions but 
without the prefixs. 

One construct that would be most welcome in CSDL is 
the CASE statement. This would allow ease of programming 
when one out of several possible paths would be chosen- The 
lack of a CASE construct requires one to write multiple IF 
statements which does not make for the most elegant 
programming- Several of the procedures in this data link 
receiver project have ten IF statements where some other 
languages would be able to express the same function in one 
or two lines- This does take up some space in memory but 
when compiled it requires less space and may be 
insignificant in terms of overhead- The real problem that 
is evident is that there are many more variables than 
necessary in most other high-level languages- CSDL does not 
allow for subscripting variables which leads the designer of 
a system to writing many more lines of code and having to 
name each variable instead of using subscripts- For 
example, ten messages are required to be in memory at any 
given time. This requires ten different variable names for 
these ten messages. A pointer must keep track of the next 
message block available for use and it would be quite simple 
to use subscripted variables for this purpose- Since this 
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is not possible, a series of nearly identical IF statements 
must be traversed when locating the next block. The same 
problem occurs when printing the messages. The code must 
explicitly name each of the ten variables. It would require 
less memory for the program to be able to refer to these 
variables with subscripts and would also make for clearer 
code. The complexity could be simplified by adding new 
primitives that would allow for the constructs using 
subscripted variables. Examples of tasks with multiple 
statements that could be handled with a CASE statement 
include KBINPMAIN, INTAC, and AUTO. Nearly every task in 
this program could benefit from the use of subscripted 
var i abl es. 

The original design approach was to divide the memory 
for the ten messages according to the number of aircraft 
logged into the system. Two message memories were to be 
reserved for messages from helicopters not logged in. Thus, 
there would have been a maximum of eight aircraft tracked 
where each would have one message available for immediate 
recall. This would be the worst case scenario and also 
highly unlikely. If only one helicopter was logged in, the 
system could maintain the last eight messages for that one 
helicopter. Since CSDL does not provide a capablity for 
indexing variables, it would be difficult to provide such 
dynamic allocation of the ten message memory areas. 
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It is highly likely that there will be three or less 
helicopters logged into one system at any given time. It is 
less likely that there would be tour or more aircraft logged 
in simultaneously. Standard safety procedures call for a 
helicopter to maintain a radio guard at all times and send 
an "operations normal" and position report every fifteen 
minutes. If there were three helicopters logged into one 
system that would mean 12 reports in an hour. This means 
that the two earliest reports would be overwritten by newer 
messages at the end of an hour but there would be at least 
three messages remaining for each aircraft. Even if there 
were ten aircraft using the system, there would be at least 
one message in memory for each aircraft. This would be the 
last position sent and would be used as a datum for search 
and rescue procedures should communications be lost with the 
aircraft. Position reports include heading, track, ground 
speed, and other environmental data that would provide 
excellent search planning information. Since manual polling 
of the helicopters is provided, it would be possible to 
manually poll one or more helicopters enough times so that 
there would not be any messages in the memory from a 
particular helicopter. There are two backups in this case. 
First, the printer should be enabled so that there would be 
hard copy of all the messages. The second is the 
multi— track audio tapes that monitor telephone and radio 
traffic at air stations and aboard the flight-deck equipped 
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cutters. 



Should it be required in an emergency, the tapes 



could be run back as -Far as necessary and then replayed to 
-feed the raw radio signals to the radio inter-face device. 

Reading messages in -from the electronic navigation 
device inter-face created a problem when coding the program. 
Each message is 56 bytes long and the input to the processor 
is 8 bits wide. In order to read in the message, the 56 
bytes must be read into the processor and sent to memory, 
the video display unit, and the printer in a serial 
-fashion. There was no construct in CSDL that would read in 
a string o-F characters o-F this length. This -Function is one 
that is basic to the operation o-F this system. String 
handling can be added by writing a new primitive that would 
read in the 56 bytes or any other number by overloading the 
SENSE (input) statement in CSDL. Without this addition to 
the language, there could be no CSDL implementation that 
would satis-Fy the requirements o-F the data link receiver 
project. A similar primitive can be specified to write a 
message out to the VDT and printer when the operator selects 
that -Function. These primitives can be general enough that 
they may be used -For different sizes of strings. 

When the CSDL program is completed, it is translated 
by Carson’s CSDL. PAS program. This program, written in 
Pascal, takes the high-level CSDL program and translates it 
into a primitive list for the controller. The primitive 
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list is used in the next step in the control system 
environment process. 



desi gn 
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IV, I HPLEMENT AT I ON 



The next step in the process from the high-level 
description to the hardware and so-ftware listings is to take 
the output of the CSDL translator and feed it through Ross' 
FORTRAN program, NEWCSDL. FOR. 

The main task performed by NEWCSDL- FOR is to map the 
primitive list compiled by CSDL. PAS to the selected 
realization library. The output includes a listing of the 
hardware to implement the controller and the assembly 
language software to run it- Two files, the primitive list 
and another containing information about the contingency 
list, are used by the Optimizer Module in NEWCSDL. FOR to set 
up a formatted application table and an index to the 
selected realization volume- The Functional Mapper 
constructs the Realization Timing Table and determines if 
the realization is feasible. A monitor sequence is added 
and actual values are substituted for dummy parameters and 
an output listing is generated- If the Timing Analyzer 
fails to find a feasible single processor realization, the 
contingency/task list is partitioned and a dual processor 
realization is generated under the control of the 
Optimizer- For greater detail, see Ross' doctoral 
dissertation CRef. 211. 
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The project at this point had progressed -from the CSDL 
description through translation by Carson's CSDL- PAS 
program- This was the second attempt to use CSDL. PAS on a 
project- The -first use was -for a test o-f CSDL. PAS conducted 
by Carson by running Riley's jet engine start sequencer 
controller through the translator. 

There were some problems getting the CSDL description 
-for the data link receiver project through the translator. 
The data link receiver required so many variable names that 
it exceeded the size limits set in CSDL. PAS. One problem 
concerned a CASE statement in the CSDL. PAS program where 20 
possible cases existed. This problem was resolved by 
increasing the allowed number of cases to 95. There were 
other errors generated in translation that were quite 
frustrating. One problem was overcome when it was 
discovered that CSDL. PAS would generate errors whenever a 
tabkey had been used to produce spacing within the CSDL 
description- All tabkey spacing was removed and replaced 
with spaces generated using the spacebar- CSDL. PAS should 
be modified to allow for spaces generated by either the 
space bar or the tabkey. 

More problems were discovered when trying to run the 
primitive list generated by CSDL. PAS through NEWCSDL.FOR. 
FORTRAN is notorious for the inflexibility of program 
inputs, which is a carryover from the days of card input- 
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NEWCSDL. FOR is no exception. Title lines for functions and 

procedures in the primitive files have the format: 

1 6 23 

p xxx t. generated for: procedure name 

where xxx represents the line number of the primitive and t 
stands for title line. The t. generated for primitive marks 
the beginning of a new procedure. The procedure names in 
the title lines of the primitive list as generated by 
CSDL.PAS were in column 22. When NEWCSDL. FOR is run with 
the procedure name in the wrong column, everything between 
the title lines is ignored and error messages are generated 
for each title line in the file. Each title line in the 
primitive list had to be reformatted to meet the 
requirements of NEWCSDL. FOR. 

Another problem encountered in the translation was 
that the s.ni primitive should have appeared as: 
pxxxs.ni (::) 

The s stands for a software primitive. An h stands for a 
hardware primitive. The colons inside the parentheses are 
required because they are used to separate variables, 
parameters, and attributes. They were not in the primitive 
list generated by CSDL.PAS. The colons were added using the 
text editor. A similar error was discovered in the s.main 
pr i mi t i ve. 

The entire primitive list must be in lower case 
letters except for the function and task names. They may be 
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in upper or lower case as long as they are consistent with 
the case used in the contingency list tile. Although 
CSDL.PAS allows variable names of up to ten characters in 
length, NEWCSDL.FOR has a maximum of six characters. The 
designer must insure that no two variables have the same six 
first characters. 

While the formatting errors and the lack of colons in 
the proper places created some unnecessary work, the biggest 
problem at this point was the incompatibility of the 
primitive list and the Z80 realization library. For 
instance, the function of one basic primitive is to sense a 
value on a particular input line to the processor. This 
primitive has the form: 

p xxx s.sensecond (keychar:8) 

where sensecond stands for sense condition, keychar is the 
name of some variable, and eight refers to the arithmetic 
precision of the variable. It was discovered that the ZOO 
realization library did not contain any realization of this 
pr i mi ti ve. 

The Z80 library was designed by Smith at the same time 
Riley was working on the jet engine start controller. This 
was before Carson's CSDL.PAS program was available. Riley 
had to translate the CSDL listing into a primitive list by 
hand. Since he chose to implement his project using the Z80 
library, he and Smith worked closely together. Prolog 
equipment was used for the project implementation and so 
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Smith geared the Z80 library toward that end. Thus, the Z80 
library was not as general as needed to produce contollers 
using other hardware. In particular, the I/O primitives 
were designed specifically to match the Prolog hardware. 
The s. sense and s. issue primitives were not needed for the 
Prolog implementation and thus were not included in the Z80 
real ization 1 ibrary. 

At this point it was decided to shift the emphasis 
from using the Z80 realization library to the 8080 and 8086 
realization libraries. There were two reasons for this. 
First, the designer of the 8086 library, Cetel , was still 
available to make adjustments to the library. Second, the 
8086 library closely followed the example of the original 
8080 library built by Ross. If the primitive list could be 
adjusted to run under NEWCSDL.FOR, then two realizations of 
the data link receiver could be produced. This would help 
standardize the realization libraries to where any library 
could be used with the primitive list output by CSDL.PAS and 
further processed by NEWCSDL.FOR. 

Other problems remained stemming from the incom- 
patibilty of the primitive list produced by CSDL.PAS and the 
realization libraries. CSDL.PAS produced other primitives 
that did not exist in the realization libraries. These 
primitives included s.inputport and s. outputpor t . Inputport 
and outputport are both primitives that remain to be added 
to the realization libraries. 
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The s.forcons and s. forend primitives in the 8080 and 
8086 libraries are not in the same format. These primitives 
mark the beginning and end of for-next loops. There are two 
variables for the upper and lower values of the loop. 
NEWCSDL. FOR expects actual numbers but CSDL.PAS produces 
variable names instead. 

The s.exitproc primitive marks the end of a procedure 
in the primitive list. NEWCSDL. FOR was designed to use the 
contingency name in the parameter list to reset the value of 
the contingency to zero after the task was executed. The 
CSDL program written for this project included a statement 
at the end of each task explicitly resetting the 
contigency. Ross decided that the realization libraries and 
NEWCSDL. FOR would be changed to adopt this latter method of 
resetting the contingency. 

There are several different primitives with the same 
names in a realization library. This is to allow for 
different precisions of arithmetic manipulations. 
NEWCSDL. FOR performs a binary search to find a primitive 
name. When it finds the primitive, it searches up the 
realization library index to find the first instance of the 
primitive name. NEWCSDL. FOR then works down through the 
index to find the first instance of the primitive that will 
satisfy the precision required. For instance, s.var and 
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s.cons primitives in the 8086 realization library had the 
format : 

s.var (nam, val: 0,8 : . . .etc) 
s.var (nam, val: 0,16 : . . .etc) 
s.var (nam, val: 0,24 : . . .etc) 

where the 0,n referred to variables with zero to n bits of 
precision. It was discovered that NEWCSDL.FOR was choosing 
the greatest precision available every time. This was 
corrected by changing 8086 realization library to the 
format : 



s. var 


(nam, val : 


0,8 


: . . . etc ) 


s. var 


(nam, val : 


9, 16 


: . . . etc ) 


s. var 


(nam, val : 


17,24 


: . . . etc ) 



The correct precision is now selected for these particular 
primitives but the entire 8086 library must be examined for 
other instances of this precision error. 

NEWCSDL.FOR requires a listing of the contingency/task 
pairs in a file named IADEFL.DAT as one of its inputs. 
CSDL.PAS creates such a file but it is not in the required 
format. A new line for the system must be added as the 
first line in the file. The other columns must be corrected 
to the format as set forth in Ross' doctoral dissertation. 

The multiplication primitive, s.mult, was present in 
the 8086 library as s.mul. The two precisions of multiply 
were renamed s.mult to conform with the standard. The 
s.mult primitive in the 8080 library had been changed by 
Pol luck from a strictly software implementation to one that 
called an arithmetic chip to do a hardware multiply. The 
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chip had been removed -from the library at some point before 
this project was started- Either the chip or the software 
multiplication routine must be restored for the 8080 library 
to correctly handle multiplication. 

The size of the program also created problems in 
NEWCSDL.FOR. One of the stacks in the Formatter Module 
proved to be too small for the data link receiver project. 
The stack overflowed before the completion of the 

realization. The program was adjusted by Ross to allow for 
a greater stack size. The output of NEWCSDL.FOR for the 
8086 library is in Appendices D and E. 

At the time of writing this thesis, the following 
corrections and alterations to the primitive file must be 
made for NEWCSDL.FOR to properly process it. The two lines 
wi th 

t. generated for: SYSTEM *********** 

must be corrected to start the word system in column 23. 
The second line, 
s. MAIN (::) 

must be changed so that the word main is in lower case 
letters. All lines with s.inputport or s.outputport must be 
removed from the program altogether until those primitives 
are added to the realization libraries. 

Even with these changes, some errors were still 
produced. To avoid problems with the s.in, s.ni, s.forcons, 
s.forend, and s.exitproc primitives, the original CSDL 
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program was rewritten to remove for— next loops and timed 
blocks- These primitives must be standardized before they 
may be used without concern for any errors they may 
produce- The revised CSDL program is in Appendix B. 

The two realization libraries now produce the software 
and hardware listings to implement the data link receiver 
project but not without errors. One prominent mistake is 
that each time an input is sensed, another chip is added to 
the hardware listing. There should only be one I/O chip 
produced for a particular input or output. At the time of 
this writing, CSDL-PAS and NEWCSDL.FOR are being patched to 
correct some of the problems discovered while designing the 
data link receiver. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



The Control System Design Environment holds great 
promise as a tool -For simplifying the work of designers and 
reducing the expense of producing controllers. This 
ambitious data link receiver project has shown that the CSDE 
has greater application than may have been realized by those 
who did the early work on it- This project has shown that 
it may be possible to design a system in modules and use 
CSDE to design each each of the modules independently of the 
others as long as the interfaces are compatible. 

This project has also demonstrated the necessity for 
compatibility among the different programs within the 
Control System Design Environment. Since the output of one 
program is the input of another, there must be a conscious 
effort to standardize the interfaces. 

Heilstedt has recommended that NEWCSDL.FOR be 
rewritten in a newer language than FORTRAN CRef. 223. While 
it is true that other languages may be easier to maintain 
than FORTRAN, there are other items in the Control System 
Design Environment that should be addressed first for a 
better return on the investment of the time and effort that 
would be required. Since VMS on the VAX computer allows a 
file produced under one language to be used as input to 
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another language, there is no need to rush a reprogramming 
o-f NEWCSDL . FDR . A rewrite of NEWCSDL. FOR would make the 
input less column-dependent. A more critical problem is the 
incompat ibi 1 ty among the different realization libraries. 
There should be a standardization of primitive names and 
their associated functions. Without this standardi zat i on , 
the mapping from primitive lists to the realization 
libraries will continue to be a hit or miss proposition. 
One of the major objectives of the Control System Design 
Environment is that much of the work can be automated to 
make designing, prototyping, testing, and implementation of 
controllers faster and less expensive. The lack of 
standardization requires the intervention of the designer to 
make the transitions between the various elements of the 
system. 

Along with the standardi zat i on of the realization 
libraries, CSDL.PAS should be updated to incorporate the 
standards. This program is a real boon to the designer 
since it removes the tedious work of translating the CSDL 
program into the primitive list. As previously discussed, 
implementing some other high level constructs in CSDL.PAS 
would be an enhancement of the value of the program for the 
system user. These constructs should include CASE 
statements and the use of subscripted variables. 

The Control System Design Environment has great 
promise and could be a lucrative product when it is improved 
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to provide an automatic transition -from CSDL description to 
the hardware and software listings. As presently 
implemented, it requires too much e-f-fort while moving 
through the different segments o-f the system. A great deal 
o*f work remains to be done, especially the testing o-f the 
inter-faces between the di-fferent sections and o-f the 
realization libraries. It seems that the work will be well 
worth it- 
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APPENDIX A 



C SDL PROGRAM 



identification 

DESIGNER : "SJTTER FOX- 
DATE : "05-31-84" 

PROJECT : "COAST GUARD DATA LINK RECEIVER" 



DESIGN CRITERIA 

METRIC FIRST; 
VOLUMES 1 ; 
MONITORS l; 



ENVIRONMENT 

INPUT iKEYFLG, 1 , TTL; KEYCHAR, «, TTL; MANPOS , 8 , TTL ; 

NEWPOS, 1 , TTL; POSITION, 8, TTL; MSGPEADY,1,TTL; 
MESSAGF, 8, TTL ; ACNUM, 8 , TTL ; 

END INPUT; 

OJTPUT: MENU, 8, T TL ,* °OLL , 8, T TL ,* MSGVDT , 8, TTL; 

MSGRCVD, 1 , T TL ,' 

END OUTPUT; 

ARITHMETIC: KEY IN MAIN, 8; M INT AC , 8,* MMSGDSPL Y, 8; 

ML OC A T I ON , 8 ; MCL0CKSET,8; ML0GIN0UT,8,' SMMANUAL,8 
SMAJT0,8; AC0,8; AC 1 , 9; AC 2 , 8 ; A C 3 , 8 ; AC4,8,'AC5,8 

A C6 , 8 ; AC 7 , 8 ; AC8,8; AC9,8; I NT PERIOD, 8; VSG0,8; 

MSG 1,8; MSG2 , 8 ; MSG3,8; MSG4,9; msg 5,8; MSG6,8; 
MSG7,8; MSG9 , 9 ; MSGR , 8 ; TML OC A T I ON , 8 ; TLOGIN,l; 
TLOGOUT , 1 ; NE X TMSG , 8 ; NEXTAC,8; TP0LL,1,* COUNT, 8; 
END ARITHMETIC; 



PROCEDURES 



FJNCTION KEYINMAIN: 

B I N A R Y , 1 ,* 

SENSE (KEYFLG); 

IF K E YFLG = 1 THEN K E Y I NM A I N : = 1 ; END IF; 
END KEYINMAIN; 

TASK KBINPMAIN; 
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MENU: =0 ; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHAR=1 THEN MINTAC 
IF KEYCHAR=2 THEN MMSGDSPLY 
IF KEYCHAR=3 THEN MLOCATION 
IF KEYCHAR=U THEN MCLOCKSET 
IF KEYCHAR=5 THEN MLOGINOUT 
kE yinmain:=o; 
end kbinpmain; 



i; END IF; 
l; END if; 
l; END IF; 
l; END IF; 

1 ; end IF; 



Fj NOTION MINTAC: 

BINARY, 1 ; 
SENSE(KEYCHAP) ; 
END MINTAC,* 



TASK INTAC; 

MENU: =1 ; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHAR = 0 THEN K E Y I NM A I N : = 1 ; END IF; 
IF KEYCHAR =1 THEN SMMANUAL :=l; END IF; 
IF KEYCHAR=2 THEN S^AUTO :=i; END IF; 
M I N T A C : = 0 ; 

END INTAC; 



FJNCTION SMMANUAL: 
BINARY, 1 ; 

SENSE (KEYCHAR) ; 
END SMMANUAL; 

task manual; 



IF 


AC0/=0 


THEN 


POLL 


IF 


AC J / = 0 


THEN 


POLL 


IF 


AC2/=0 


THEN 


POLL 


IF 


AC3/=0 


THEN 


POLL 


IF 


Aca/ = o 


THEN 


POLL 


IF 


AC5/=0 


THEN 


POLL 


IF 


AC6/=0 


THEN 


POLL 


IF 


AC7/=0 


THEN 


POLL 


IF 


AC9/=0 


THEN 


POLL 


IF 


AC9/=0 


THEN 


POLL 


SMMANUAL : 


= o; 





end manual; 



= 0; 


ISSUE 


(POLL ) 


END 


IF 


= 1 ; 


I SS JE 


(POLL) 


END 


IF 


= 2; 


ISSJE 


(POLL) 


END 


IF 


= 3; 


ISSJE 


(POLL) 


END 


IF 


= a ; 


ISSUE 


(POLL) 


END 


IF 


= 5; 


ISSJE 


(POLL ) 


END 


IF 


= 6 ; 


ISSUE 


(POLL) 


END 


IF 


= 7; 


ISSJE 


(POLL) 


END 


IF 


= 8; 


ISSUE 


(POLL) 


END 


IF 


= 9; 


ISSUE 


(POLL ) 


END 


IF 



FJNCTION SMAUTO: 

BINARY, 1 ; 

SENSE (KEYCHAR); 
END smauto; 
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t 4 s* auto; 

MENU:=2; ISSJE(^ENU); 



SENSE (KEYCHAR); 
IF KEYCHAR=0 THEN 
IF KEYCHAR=1 THEN 
IF KEYCHAR=2 THEN 
IF KEYCHAR=3 THEN 
IF KEYCHARrU THEN 
IF KEYCHAR=5 THEN 
IF KEYCHAR=6 THEN 
S^AUTO: =o; 

TROLL : = 1 ; 

END AUTO; 



FJNCTION TPOLL: 

6 I N A R Y , 1 ; 

IF INTPERI0D=30 THEN 
END IN; END if; 

IF INTPERI0D=20 THEN 
END IN; END if; 

IF INTPERI0D=15 THEN 
END in; END IF; 

IF 1NTPERI0D=10 THEN 
END IN; END IF; 

IF INTPERIOD= 5 THEN 
END IN; END IF? 

IF IN TPER I OD= 1 THEN 
END IN; END IF; 
END tpoll; 

TASK POLLAUTO; 



IF 


AC 0 / = 0 


THEN 


POLL 


IF 


AC 1 / = 0 


THEN 


POLL 


IF 


AC2/=0 


THEN 


POLL 


IF 


AC3/=0 


THEN 


POLL 


IF 


Aca/=o 


THEN 


POLL 


IF 


AC5/=0 


THEN 


POLL 


IF 


AC6/=0 


THEN 


POLL 


IF 


AC7/=0 


THEN 


POLL 


IF 


AC8/=0 


THEN 


POLL 


IF 


ACR/=0 


THEN 


POLL 


TPOLL : =0; 







END POLLAUTO ; 



FJNCTION MMSGDSPLY: 
BINARY , 1 ; 

SENSE (KEYCHAR); 



KEY IN^AIN 


= 1 


END IF; 


INTPERIOD 


= 30 


END IF; 


INTPERIOD 


= 20 


END IF; 


INTPERIOD 


= 15 


END IF; 


INTPERIOD 


= 10 


END IF; 


INTPERIOD 


= 5 


END IF; 


INTPERIOD 


= 1 


END IF; 



IN 


30 


M 


DO 


tpoll : = l ; 


IN 


20 


M 


DO 


TPOLL : = l ; 


IN 


15 


M 


DO 


TP0LL:=1 ; 


IN 


10 




DO 


TPOLL ; = 1 ; 


IN 


5 


M 


DO 


tpoll : = i ; 


IN 


1 


M 


DO 


tpoll : = l ; 



= 0 


ISSUE 


(POLL) 


END 


IF; 


= 1 


ISSUE 


(POLL) 


END 


IF; 


= 2 


ISSUE 


(POLL) 


END 


IF; 


= 3 


ISSUE 


(POLL ) 


END 


IF; 


= U 


ISSUE 


(POLL) 


END 


IF; 


= 5 


ISSUE 


(POLL) 


END 


IF ; 


= 6 


ISSUE 


(POLL) 


END 


IF; 


= 7 


ISSUE 


(ROLL) 


END 


IF ; 


= 8 


ISSUE 


(POLL) 


END 


IF; 


= 9 


ISSUE 


(POLL) 


END 


IF; 
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ENID MMSGDSPLY; 



task msgdsply; 

MSGVDT: =MSGO 
MSG VO T : =MSG1 
MSGVDT : =MSG2 
MSGVDT : =MSG3 
MSGVDT : =MSG'4 
MSGVDT : =MSG5 
MSGVDT : = MSG5 
MSGVDT : =MSG7 
MSGVDT : =MSG3 
MSGVDT : =MSG9 
MMSGDSPLY : =0 
END MSGDSPLY; 



I SSUE ( MSGVDT ) ; 
ISSUE (MSGVDT) ; 
ISSUE (MSGVDT ) ; 
ISSUE(MSGVDT) ; 
l SSUE ( MSGVDT ) ; 
ISSUE (MSGVDT) ; 
ISSUE (MSGVDT ) ; 
I SSUE (MSGVDT ) ; 
I SSUE ( MSG VD T ) ; 
ISSUE (MSGVDT ) ? 



FJNCTION MLOC A T I ON : 

BINARY , 1 ; 

SENSE (KEYCMAR); 

END MLOCATION; 

TASK LOCATION; 

menu ; = 3 ; ISSUE (M£NJ); 

SENSE (KEYCiAR); 

IF KEYCHAR=0 THEN KE Y INMA IN : = 1 ? END IF; 

IF KEYCHARrl THEN NErtPOSj=l; END IF; 

IF KEYCHARr? THEN NEdPOS:=0; T ML OC A T I ON ; = 1 ; END IF; 
MLOCATION:=0; 

END LOCATION; 



FJNCTION T ML OC A f I ON ; 
BINARY, 1 ; 

SENSE (KEYCHAR) ; 
END TMLOCATION; 

TASK MANLOC; 

SENSE (MANPOS); 
POSI TION; sMANPOS; 
TMLOCATION:=0; 

END MANLOC; 



FJNCTION MCLOCKSET: 

BINARY, 1 ; 

SENSE(KEYCHAR) ; 

END MCLOCKSET; 

TASK clockset; 

MENU : =4 ; ISSUE ( men j ) ; 
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SENSE (KEYCHAR); 
MCLOCKSET : =0; 

ENID CLOCKSET; 



FJNCTION MLOGINOUT: 

BINARY , 1 ; 

SENSE (KEYCHAR); 

END mloginout; 

TASK L03IN0UT; 

MENU : =5 ; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHAR = 0 THEN K E Y I NM A I N ; = 1 ; END IF; 
IF KEYCHARzl THEN TLOGIN:=l; END IF; 

IF KEYCHAR=? THEN TLOGOUT;=l; END IF; 
MLOGINOUT : =0; 

END LOGINOUT; 



FJNCTION TLOGIN: 

BINARY, 1 ; 

SENSE (KEYCHAR) ; 

END TLOGIN; 

TASK LOGIN; 

ACNUM:=0; 

FOR COUNT FROM 1 TO 4 : 4 DO 
SENSE (KEYCHAR); 
ACNJM:=(ACNUM*10)+KEYCHAR; 



END FOR; 



IF 


NEXTAC=0 


AND 


A C 0 = 0 


THEN 


ACO 


= ACNUM 


END 


IF 


IF 


N E X T A C = 1 


AND 


AC 1 =0 


THEN 


AC 1 


= A C N U M 


END 


IF 


IF 


NEXTAC=2 


AND 


AC 2 = 0 


THEN 


AC2 


= ACNUM 


END 


IF 


IF 


NEXT AC=3 


AND 


AC 3 = 0 


THEN 


A C 3 


= ACNUM 


END 


IF 


IF 


NEXTAC=a 


AND 


Aca = o 


THEN 


AC4 


=ACNUM 


END 


IP 


IF 


NEXT AC = 5 


AND 


AC5 = 0 


THEN 


AC5 


= ACNUM 


END 


IF 


IF 


NEXT AC=6 


AND 


AC 6 = 0 


THEN 


A C 6 


= A C NUM 


END 


IF 


IF 


NEXT AC=7 


AND 


AC 7 = 0 


THEN 


A C 7 


= ACNUM 


END 


IF 


IF 


NEXTAC=8 


AND 


AC8 = 0 


THEN 


A C 8 


= A C NUM 


END 


IF 


IF 


NEXTAC=R 


AND 


AC9 = 0 


THEN 


A C 9 


= A C NU M 


END 


IF 



NEXTAC : =NEXTAC + 1 ,* 

IF NEXTAC=10 THEN NEXTAC:=0; END IF; 
TLOGIN:=o; 

END LOGIN; 



FJNCTION T LOGOUT : 

BINARY , 1 ; 

SENSE (KEYCHAR ) ; 
END TL030UT; 
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TASK LOGOUT; 

ACNUM;=0; 

FOR COUNT FROM 1 TO U : U DO 
SENSE (KEYCHAR); 

ACNUM: =( ACNUM* 1 0) +KEYCHAR; 



END for; 

IF ACO=ACNUM 
IF AC 1 = ACNUM 
IF AC?=ACNUM 
IF AC3=ACNUM 
IF ACa=ACNUM 

IF AC5=ACNUM 
IF AC6=ACNUM 
IF AC7=ACNUM 
IF AC8=ACNUM 
IF AC9 = ACNIJM 
TLOGOUT : =0; 
END LOGOUT; 



THEN 


ACO 


= 0 


END 


IF; 


THEN 


ACO 


= 1 


END 


IF; 


THEN 


ACO 


-2 


END 


IF; 


THEN 


ACO 


= 3 


END 


IF; 


THEN 


ACO 


= 4 


END 


IF; 


THEN 


ACO 


= 5 


END 


IF; 


THEN 


ACO 


= 6 


END 


IF; 


THEN 


ACO 


= 7 


END 


IF; 


THEN 


ACO 


= 8 


END 


IF; 


THEN 


ACO 


= 9 


END 


IF; 



FUNCTION POSCH: 

BINARY, l; 

SENSE (NErtPDS); 

IF NE/JPOS = l THEN POSCH: = i; END IF; 
END POSCH; 



TASK POSUPDATE; 

SENSE (POSITION); 
POSCH: = o; 

END posjpdate; 



FJNCTION VSGIN: 

BINARY, 1 ,* 

SENSE (MSGREADY); 

IF MSGREADY = 1 THEN MSGIN:=1; END IF; 
END ^SGIN; 



task msgstore; 

SENSE (MESSAGE); 
ISSUE (MSGRCVD); 



IF 


NEXTMSG=0 


THEN 


ACO 


=MESS AGE 


IF 


NEXTMSG= 1 


THEN 


A C 1 


=MESSAGE 


IF 


NEXTMSS=? 


THEN 


AC 2 


=MESSAGE 


IF 


NEXTMSG=3 


THEN 


ACS 


=MESS AGE 


IF 


NEXTMSS=4 


THEN 


Aca 


=MESS AGE 


IF 


NEXTMSS=5 


THEN 


ACS 


^MESSAGE 


IF 


NEXTMSG=b 


THEN 


AC6 


=MESSAGE 


IF 


NEXTMSG=7 


THEN 


A C 7 


=MESS AGE 


IF 


NEXTMSG=8 


THEN 


A C 8 


= MESS AGE 


IF 


NEXTMSG=9 


THEN 


AC9 


= MESSAGE 



END IF 
END IF 
END IF 
END IF 
END IF 
END IF 
END IF 
END IF 
END IF 
END IF 
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NEXTMSG: =NEXTMSG+ 1 ; 

IF NEXTMSS=10 THEN NEXTMSG:=0; END IF 
END MSGSTORE; 



CONTINGENCY LIST 



WHEN 


KE Y I NMAIN 


100 


VIS 


DO 


KBINPMAIN; 


WHEN 


M I N T A C 


100 


MS 


DO 


int ac ; 


WHEN 


SMMANUAL 


too 


MS 


DO 


MANUAL ; 


WHEN 


SMAUTO 


100 


MS 


DO 


AUTO; 


WHEN 


TPOLL 


1 00 


MS 


DO 


3 OLLAUTO; 


WHEN 


^LOCATION 


1 00 


MS 


DO 


location; 


WHEN 


TMLOCAT ION 


100 


viS 


DO 


MANLOC; 


WHEN 


POSCH 


1 000 


MS 


DO 


POSUPDATE; 


WHEN 


MMSGDS 3 LY 


1 00 


MS 


DO 


MSGDSPLY ; 


WHEN 


MCLOCKSET 


100 


MS 


DO 


CLOCKSET; 


WHEN 


MLOGINOUT 


100 


MS 


DO 


LOGINOUT ; 


WHEN 


TLOGIN 


100 


MS 


DO 


login; 


WHEN 


T LOG OUT 


100 


MS 


DO 


LOGOUT; 


WHEN 


MSGIN 


100 


MS 


DO 


MSGSTORE; 



END 
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AP D END I X 8 



C SDL PROGRAM 
(REVISED) 



IDENTIFICAT I ON 

DESIGMER : "SJTTER FOX" 

DATE : “05-51-84" 

PROJECT : "COAST GUARD DATA LINK RECEIVER" 



DESIGN CRITERIA 

METRIC FIRST; 
VOLUMES l; 
MONITORS i; 



ENVIRONMENT 

INPUT.'KEYFLG, 1 , ML; K E Y CH AR , 8 , T T L ; M ANPOS , 8 , T T L ; 

NErtPOS, 1 , TTL,* POSITION, 8 , ttl? msgpe a d y , i , t t l ; 
MESSAGE/ 8, TTL; ACNUM, 8, TTL; 

end input; 

OJTPUT : MENU, 8/ T TL ; 3 OLL , 8 , T TL ; MSG VD T , 8 , T TL ; 

msgrcvd, i , ttl; 

END OUTPUT; 

ARITHMETIC: KEYINMAIN/8; MINTAC/8; MMSGDSPLY , 8; 

ML0CATI0N/8; MCLOCKSET/8; ML03IN0UT,8; SM MAN UAL, 8 
SMA'JTO, 8; A C 0 , 8 ; AC 1 , 8; AC2,8; AC 3, 3; AC4,8;AC5,8 
AC6,8,‘ AC7,3; AC8,8,' ACR,8; INTPERIOD/8; MSG0,8; 
MSG 1 , 8 ; MSG2,3; MSG3,8; MSG4,3; MSG5,8; MSGb,8; 
MSG 7 , 8 ; M S G 3 , 8 ; MSGP , 8 ; T MLOC A T I ON , 8 ; TLOGIN,l,‘ 
TLOGOUT , 1 ; NEXTMSG,8; NEXTAC,8; TPOLL,i; COUNT, 8; 
CLOCK, 3; 

END ARITHMETIC; 



PROCEDURES 



FJNCTION KEYINMAIN: 

B I N A R Y , 1 ,* 

SENSE (KEYFLG); 
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IF KEYF|_G = 1 THEN K E 1 1 A I N : = 1 ; END IF; 
END KEYINMAIN? 

TASK KBINPMAIN? 

MENU ; =0 ; ISSUE (MENU); 



SENSE (KEYCHAR); 



IF 


KEYCHAR=1 


THEN 


MINTAC ; = 1 ? 


END 


IF; 


IF 


KEYCHAR-2 


THEN 


MMSGDS D LY:=l ; 


END 


IF; 


IF 


KEYCHARrS 


THEN 


ML0CATI0N:=1 ; 


END 


IF; 


IF 


KE YCHAR=N 


THEN 


MCLOCKSE r ; = 1 ; 


END 


IF? 


IF 


KEYCHAR=5 


THEN 


MLOGINOUT : =1 ; 


END 


if; 



KEYINMAIN; =0; 
END KBINPMAIN; 



FJNCTION MINTAC: 

BINARY, 1 ; 
SENSE(KEYCHAR) ; 
END MINTAC? 



TASK INTAC; 

MENU ; = l ; ISSUE ( me N J ) ; 
SENSE (KEYCHAR); 



IF 


KEYCHAR=0 


THEN 


KEYINMAIN: = 1 ; 


END 


IF? 


IF 


KEYCHAR=1 


THEN 


SMMANUAL ;=i; 


END 


IF; 


IF 


KEYCHAR=? 


THEN 


SMAUTO : = 1 ; 


END 


if; 



MINTAC:=0; 
END INTAC? 



FJNCTION SMMANUAL: 

B I N A R Y , 1 ? 

SENSE (KEYCHAR) ; 
END SMMANUAL; 

TASK MANUAL? 



if 


A C 0 / = 0 


THEN 


POLL 


= 0 


ISSUE 


(POLL) 


END 


IF; 


IF 


AC 1 / = 0 


THEN 


POLL 


= 1 


ISSUE 


(POLL) 


END 


IF? 


IF 


A C B / = 0 


THEN 


POLL 


= 2 


ISSUE 


(POLL) 


END 


IF? 


IF 


ACS/=0 


THEN 


POLL 


= 3 


ISSUE 


(POLL) 


END 


IF; 


IF 


Aca/=o 


THEN 


POLL 


= a 


ISSUE 


(POLL) 


END 


IF; 


IF 


AC5/=0 


THEN 


POLL 


=s 


ISSUE 


(POLL) 


END 


IF; 


IF 


AC6/=0 


THEN 


POLL 


= 6 


ISSUE 


(POLL) 


END 


IF; 


IF 


AC7/=0 


THEN 


POLL 


= 7 


ISSUE 


(POLL) 


END 


if; 


IF 


AC 8 / = 0 


THEN 


POLL 


sft 


ISSUE 


(POLL) 


END 


if; 


IF 


AC 9/ = 0 


THEN 


POLL 


= 9 


ISSUE 


(POLL) 


END 


IF; 



SMMANUAL : =0 ? 

end manual; 
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FJNCTION SMAUTO: 

BINARY/ 1 ; 

SENSE (KEYCHAR); 

END SMAUTO; 

task auto; 

menu:=2; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHARzO THEN KEYINMAIN 
IF KEYCHAR=1 THEN INIPERIOD 
IF KEYCHARz? THEN INTPERIOD 
IF KEYCHARz3 THEN INTPERIOD 
IF KEYCHARz'j THEN INTPERIOD 
IF KEYCHARzS THEN INTPERIOD 
IF KEYCHAR=6 THEN INTPERIOD 
SENSE (CLOCK); 

INTTIME := CLOCK; 

SMAUTO: =o; 

TPOLL:=l ; 

END AUTO; 



FJNCTION TPOLL: 

B I N A R Y , 1 ; 

SENSE (CLOCK); 

IF CLOCK-INTTIME > INTPERIOD THEN TPOLL:=l; END IF; 

END tpoll; 

TASK POLLAUTO; 



IF 


AC0/=0 


HEN 


POLL 


= o; 


ISSUE 


(POLL) 


END 


if; 


IF 


AC 1 / = 0 


THEN 


POLL 


= l ; 


ISSUE 


(POLL) 


END 


if; 


IF 


AC2/=0 


THEN 


POLL 


-2; 


ISSUE 


(POLL) 


END 


if; 


IF 


AC 3/ = 0 


THEN 


POLL 


-i; 


ISSUE 


(POLL) 


END 


IF; 


IF 


Aca/=o 


THEN 


POLL 


za ; 


ISSUE 


(POLL) 


END 


if; 


IF 


AC5/=0 


THEN 


POLL 


= 5; 


ISSUE 


(POLL) 


END 


IF; 


IF 


A C 6 / = 0 


THEN 


POLL 


= fe; 


ISSUE 


(POLL) 


END 


IF; 


IF 


AC 7 / = 0 


THEN 


POLL 


z 7 ; 


ISSUE 


(POLL) 


END 


IF ; 


IF 


AC0/=O 


THEN 


POLL 


= 8; 


ISSUE 


(POLL ) 


END 


IF ; 


IF 


A C 9 / = 0 


THEN 


POLL 


= 9; 


ISSUE 


(POLL ) 


END 


IF; 



TPOLL : =0 ; 
END POLLAUTO; 



FJNCTION MMSGDSPLY: 
BINARY, 1 ; 

SENSE (KEYCHAR); 
END MMSGDSPLY; 

TASK MSGDSPLY; 



= 1 


END IF; 


= 30 


END IF; 


= 20 


END IF; 


z 15 


END IF; 


= 10 


END IF; 


= 5 


END IF; 


= 1 


END IF; 
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MSGVDT 

MSGVDT 

MSGVDT 



= M5G0 
= MSG1 
= MSG2 



MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 

MSGVDT 



= MSG 5 
= MSG'4 
= M3G5 
= MSG b 
= MSG7 



MSGVDT 



= MSGfl 



MSGVDT : =M5G9 
MMSGDSPLY : =0 
END MSGDSPLY; 



ISSUE (MSGVDT ) ; 
ISSUE(MSGVDT) J 
ISSUE (MSGVDT) ; 
ISSUE (MSGVDT ) ; 
ISSUE (MSGVDT) ; 
I SSUE (MSGVDT ) ; 
ISSUE (MSGVDT); 
ISSUE (MSGVDT ) ; 
ISSUE (MSGVDT ) ; 
ISSUE (MSGVDT ) ; 



FJNCTION MLOCATION: 

BINARY, 1 ; 

SENSE (KEYCHAR); 

end mlocation; 

TASK location; 

MENU : =s; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHARzO THEN K E Y I NMA I N : = 1 ; END IF; 

IF KEYCHARzl THEN NENPOS:=l; END IF; 

IF KEYCHAR = 2 THEN NErtPOS:=0; T MLOC A T I ON : = 1 ; END If-; 
MLOCATION:=0; 

END LOCATION; 



FJNCTION TMLOCATION: 

binary, l ; 

SENSE (KEYCHAR ) ; 
END TMLOCATION; 

TASK manloc; 

SENSE (MANPOS); 

POSI TION: smanpos; 
tmlocation:=o; 

END MANLOC; 



FJNCTION MCLOCKSET; 

binary, i ; 

SENSE(KEYCHAR) ; 

END MCLOCKSET; 

TASK CLOCKSET; 

menu ; ; ISSUE (MENU); 
SENSE (KEYCHAR); 
MCLOCKSET : =0; 

END CLOCKSET; 
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FJNCTION MLOGINOUT: 

BINARY , 1 ; 

SENSE (KEYCHAR); 

END MLOGINOUT; 

TASK LOGINOUT; 

MENU : =5 ; ISSUE (MENU); 

SENSE (KEYCHAR); 

IF KEYCHAR=0 THEN K E Y I NM A I N : = 1 ,' END IF; 
IF KEYCHAR=1 THEN TLOGIN;=i; END IF; 

IF KEYCHAR=2 THEN TLOGOUT:=l; END IF; 
MLOGINOUT : =0; 

END LOGINOUT; 



FJNCTION TLOGIN: 

BINARY, 1 ; 

SENSE (KEYCHAR ) ; 

END TLOGIN; 

TASK LOGIN; 

ACNUM: = 0 ; 

SENSE (ACNUM); 



IF 


NEXT AC = 0 


AND 


A C 0 = 0 


THEN 


ACO 


= A C NUM 


END 


IF 


IF 


NEXTAC=1 


AND 


A C 1 = 0 


THEN 


A C 1 


= ACNUM 


END 


IF 


IF 


NEXT AC = 2 


AND 


AC2 = 0 


THEN 


AC2 


= A C NUM 


END 


IF 


IF 


NEXTAC=^ 


AND 


AC 3 = 0 


THEN 


A C 3 


= ACNUM 


END 


IF 


IF 


NEXT AC=R 


AND 


Aca = o 


THEN 


A C R 


= ACNUM 


END 


IF 


IF 


NEXT AC -5 


AND 


AC5 = 0 


THEN 


AC5 


= ACNUM 


END 


IF 


IF 


NEXT AC=6 


AND 


AC6 = 0 


THEN 


A C 6 


= AC NUM 


END 


IF 


IF 


NEXTAC=7 


AND 


AC 7 = 0 


THEN 


A C 7 


=ACNUM 


END 


IF 


IF 


NEXTAC=8 


AND 


AC 8 = 0 


THEN 


AC8 


=ACNUM 


END 


I F 


IF 


NEXT AC=9 


AND 


A C R = 0 


THEN 


AC9 


= ACNUM 


END 


IF 



NEXTAC : =NEx I AC + 1 ; 

IF NEXTAC=10 THEN NEXTAC:=0; END IF; 
TLOGIN :=0; 

END LOGIN; 



FJNCTION T LOGOUT t 
BINARY, 1 ; 

SENSE (KEYCHAR) ; 

end tlogout; 



TASK LOGOUT; 

ACNUM: =o ; 

SENSE (ACNUM); 

IF AC0=ACNUM THEN AC0:=0; END IF; 
IF AC1=ACNUM THEN AC0:=1; END IF; 
IF AC2=ACNUM THEN AC0:=2; END IF; 
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IF 


AC 3 = ACNUM 


THEN 


ACO 


= 3; 


END 


IF ; 


IF 


AC4=ACNUM 


then 


ACO 


= a; 


END 


IF; 


IF 


AC5=ACNUM 


THEN 


ACO 


=5; 


END 


IF; 


IF 


AC6=ACNUM 


THEN 


ACO 


= 6; 


END 


IF; 


IF 


AC 7 = AC NUM 


THEN 


ACO 


= 7; 


END 


IF; 


IF 


AC8=ACNUM 


THEN 


ACO 


= 8; 


END 


IF; 


IF 


AC9=ACNUM 


THEN 


ACO 


= p; 


END 


IF; 



TLOGOUT : =0; 
END LOGOUT; 



FUNCTION! POSCH: 

BINARY , l; 

SENSE (NEWPOS)? 

IF NEWPOS = 1 THEN POSCH:=i; END IF; 
END POSCH; 

TASK POSUPDATE; 

SENSE (POSITION); 

POSCH : = 0 ; 

END POSUPDATE; 



FJNCTION MSGIN: 

BINARY , 1 ; 

SENSE (MSSREADY); 

IF MSGREADY=1 THEN *SGIN:=l; END IF; 
END msgin; 

TASK MSGSTORE; 



SENSE (MESSAGE); 
ISSUE (MSGRCVD); 
IF NEXTMS3=0 THEN 


ACO 


=MESSAGE 


END 


IF; 


IF 


NEXTMSG=1 


THEN 


AC 1 


=MESS AGE 


END 


IF ; 


IF 


NEXTMSG=2 


THEN 


A C 2 


=MESS AGE 


END 


IF; 


IF 


NEXT MS 3=3 


THEN 


AC 3 


sMESSAGE 


END 


IF; 


IF 


NEX TMSG='J 


THEN 


AC4 


=MESSAGE 


END 


IF; 


IF 


NEXTMSG=5 


THEN 


A C 5 


=MESSAGE 


END 


IF ; 


IF 


NEXTMSG=6 


THEN 


AC6 


=M£SSAGE 


END 


IF; 


IF 


NEXTMSG=7 


THEN 


AC 7 


=MESSAGE 


END 


if; 


IF 


NEXTMSG=5 


THEN 


AC8 


=MESSAGE 


END 


IF; 


IF 


NEXTMSG=9 


THEN 


AC9 


sMESSAGE 


END 


IF; 


NEXTMSGjrNEXTMSGM 
IF NEXT^SG=10 THEN 


• 

9 

NEXTUSG: = 0; 


END 


IF; 



END HSGSTORE; 



CONTINGENCY LIST 

WHEN KEYINMAIN ; 100 MS DO K9INPMAIN; 
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EMD 



WHEN 


MINT AC 


100 


MS 


DO 


I NT ac; 


WHEN 


SMMANUAL 


1 00 


MS 


DO 


manual; 


WHE N 


SMAUTO 


100 


MS 


DO 


auto; 


WHEN 


TPOLL 


1 00 


MS 


DO 


P0LLAUT0; 


WHEN 


MLOC ATION 


100 


MS 


DO 


LOCATION; 


WHEN 


TMLOCAT ION 


100 


MS 


DO 


manloc ; 


WHEN 


POSCH 


1000 


MS 


DO 


POSUPDA IE 


WHEN 


MMSGDS°LY 


100 


MS 


DO 


msgdsply; 


WHEN 


MCLOCKSET 


1 00 


MS 


DO 


clockset; 


WHEN 


MLOGINOUT 


100 


MS 


DO 


loginout; 


WHEN 


T LOG I N 


100 


MS 


DO 


login; 


WHEN 


T LOG OUT 


100 


MS 


DO 


LOGOUT; 


WHEN 


MSG I N 


1 00 


MS 


DO 


msgstore; 
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APPENDIX C 



CSDL.PAS OUTPUT 
PRIMITIVE LISTING 



P It. generated for: SYSTEM ******************** 

P 2s . na i n (::) 



p 


16s. var 


(KEYINMAIN:8,0) 


p 


1 7 s . v a r 


(MINTAC :8, 0) 


p 


18s.var 


( MMSGDSPL Y : 8 , 0 ) 


p 


1 9s . var 


(MLOCATION: 9, 0) 


p 


20s . var 


(MCLOCKSETje, 0) 


p 


2 1 s . v a r 


(MLOGINOUT : 8 , 0 ) 


p 


22s . va r 


(SMMANUAL: 9, 0) 


p 


2 3 s . v a r 


(SMAUT0:8, 0) 


p 


24s . va r 


( A C 0 : 8 , 0 ) 


p 


25s • va r 


( A c 1 : 8 , 0 ) 


p 


26s . v a r 


( A 32 : 8 , 0 ) 


p 


2 7 s • v a r 


(a:3:8,0) 


p 


28s. var 


( A C a : 8 , 0 ) 


p 


29s • var 


( A 35 : 8 , 0 ) 


p 


30s • va r 


( A 3 6 : 8 , 0 ) 


p 


3 1 s . va r 


( A C 7 : 8 , 0 ) 


p 


32s . var 


(A38:8,0) 


p 


33s • v a r 


(A 39: 8,0) 


p 


34 s . v a r 


(INTPERIOD:8,0) 


p 


35s . v a r 


(MSG0:8,0) 


p 


36s . v a r 


(MSG1 : 8 , 0 ) 


p 


37 s . v a r 


(MSG2:R, 0) 


p 


38s . va r 


( MSG 3 : 8 , 0 ) 


p 


39 s . v a r 


(msg4:6, 0) 


p 


40s . va r 


( M S G 5 : 8 , 0 ) 


p 


41s. var 


(MSG6:8,0) 


p 


42s • v a r 


(MSG7:8,0) 


p 


43s. var 


(MSG8:8, 0) 


p 


44s • var 


(MSG9;8, 0) 


p 


45s . va r 


(TMLOCATION:8,0) 


p 


46s . var 


( T LOG I N : 1,0) 


p 


47s. var 


( T LOGOUT : 1 ,0) 


p 


48s. var 


(NEXTMSG-.8, 0) 


p 


49s . va r 


(NEXTAC:8, 0) 


p 


50s • va r 


( T 3 OLL : 1,0) 


p 


5 1 s . va r 


(COUNT: 8,0) 


p 


52s • var 


(CL0CK:8,0) 


p 


S3 t .generated 


for: KEYINMAIN 


******************** 


p 


54 s . o roc 


(KEYINMAIN: ) 


p 


55s.sensecond 


(KEYFLG: 1 ) 


p 


56s . eq 


( a) T 0 1 , KEYFLG, a)C01 
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P 5 7s. j mo f OTOl, 301:9) 

P 58s . ass i gn ( K E Y I NM A I N , 3C 0 1 : 1 , 8 ) 

P 59s. loc (301:) 

P 60s . ex i toroc ( K E Y I NM A I N , KE Y I NMA I N : ) 

P 61t .generated for: KBINPMAIN 

******************** 



P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 

P 



62s . oroc 
63s . ass i qn 
64s . i ssuevent 
65s . sensecond 
66s . ea 
67 s . j mo f 
68s . ass i gn 
69s . loc 
70s . ea 
7 1s. j no f 
72s. assign 
73s . loc 
7U s . eg 
75s . j up f 
7bs . assi gn 
77s . 1 oc 
78s . ea 

7 9s . j mo f 
80s . ass i gn 
81s. loc 
82s . ea 
83s . j mof 
8a s . assign 
85s . 1 oc 
86s . ass i gn 

8 7s. e x i toroc 
88t .generated 



(K3INPMAIN: ) 
(M£NU,3C02:8,8) 

(MENU: 8) 

(KEYCHAR:8) 

(3T01,KEYCHAR,3C01:8,8,8) 
( a) T 0 1 ,902:8) 

(MINTAC, 3C01 :8, 8) 

002 : ) 

OT01,KEYCHAR,9C 03:9, 8,8) 
(3701,903:8) 

(MMSGDSPLY, 3C01 :8,8) 

(503: ) 

(9T01,KEYCHAR,3C0a:8,8,8) 
( 3T0 1 , 50a : 9) 
(MIOCATION,3C01 :9,8) 

(30a : ) 

(3T01,KEYCHAR,3C05:9,8,8) 
OTOl ,305:9) 

(MCL0CKSE 7 , 3C0 1 : 9, 8) 

(305: ) 

(3T01,KEyCHAR,3C06:8,8,8) 

(3701,306:9) 

(ML0GIN0UT ,3C0 1 : 8 , 8 ) 

(306: ) 

(KEYINMAIN, 3C02: 1,8) 
(KBINPMAIN, KBINPMAIN: ) 
for: MINTAC 



******************** 



P 89s. oroc (MINTAC:) 

P 90s . sensecond (KEYCHAR;8) 

P 91s. ex i toroc ( M I N T AC , MI NT AC : ) 

P 92t . gene rat ed for: INTAC 

******************** 



p 93s . oroc 
P 99s . ass i gn 
P 95s. i ssuevent 
P 96s . sensecond 
P 97s . ea 
P 98s.jmof 
P 99s . ass i qn 
P 100s. loc 
P 1 0 1 s . ea 
P 102s. jmof 
P 103s. assign 
P lOas.loc 



(INTAC : ) 

(MENU,3C01 : 8 , 8 ) 

( MENU : 8 ) 

(KEYCHAR:8) 

(3T01,KEYCHAR,3C02:8,8,8) 
OTOl, 307:8) 
(KEYINMAIN,3C01 : 1 ,8) 

(307 : ) 

(3T01,KEYCHAR,3C01:9,8,8) 
( 3 T 0 1 , 308: 8) 

(SMMANUAL, 3C01 : 8, 8) 

(308: ) 
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P 105s. eg 
P 1 06s . j mo f 
P 107s. assign 
P 1 08s . I oc 
P 109s. assign 
P llOs.exitoroc 
P lilt. generated 



(3701,KEYCHAR,3C03:9,8,8) 
( a) T 0 1 ,309:8) 
(SMAUTO,3C01:8,8) 

009: ) 

(MINT AC, 3C02: 1,9) 

( I NT AC, INTAC : ) 
for: SMMAN'JAL 



******************** 



P 112s. oroc ( SMMANUAL : ) 

P 1 1 5s . sensecond (KEYCHAR:8) 

P 1 las.sxi toroc (SMMANUAL, SMMANUAL : ) 
P 1 1 5t . generat ed for: MANUAL 
******************** 



P 116s. oroc 
P 117s. ne 
P 118s. j mo f 
P 119s. assign 
P 1 20 s . i ssue v en t 
P 121s. loc 
P 1 22s . ne 
P 12 3s. j mo f 
P 129s. assign 
P 1 25s. i ssuevent 
P 1 26s . 1 oc 
P 127s. ne 
P 128s. j mo f 
P 1 29s . ass i gn 
P 1 30s . i ssuevent 
P 1 3 1 s . 1 oc 
P 132s. n e 
P 1 33s . j mo f 
P 1 39s . ass i gn 
P 1 35s . i ssuevent 
P 1 36s . 1 oc 
P 137s. ne 
P 1 38s . j mo f 
P 1 39s .assign 
P HOs. i ssuevent 
P lais.loc 
P 1 92s . ne 
P 1 9 3 s . j m o f 
P 199s. assign 
P 1 95s . i ssuevent 
P 196s. loc 
P 1 97 s . ne 
P 198s. jmof 
P 199s. assign 
P 150s. i ssuevent 
P 1 5 1 s . 1 oc 
P 152s. ne 
P 1 53s . j mof 



(MANUAL : ) 

(3701,AC0,3C02:8,8,8) 

(5)701,-310:8) 

(P3LL, 3C02:9,8) 

(POLL : 8 ) 

(310:) 

(370 1 ,ACl,i)C02:9,8,8) 
(3701 ,311:8) 

( P DLL , 3C 0 1 : 8 , 8 ) 

( POLL : 8 ) 

(311:) 

(3701 , AC2, 3C02: 9, 8, 8 ) 

(3701,312:5) 

(PDLL,3C03:8,8) 

( POLL : 8 ) 

(312:) 

(3T01,AC3,3C02:9,8,8) 
(3701 ,313:9) 

( PDLL , 3C 09 : 8 , 8 ) 

( POLL : 8 ) 

(313:) 

(3T01,AC9,3C02:9,8,8) 
(3T0 1 , 319 : 8) 

(PDLL, 3C 05:8, 8) 
(PDLL:8) 

(319 : ) 

(3T01,AC5,3C02:8,P,8) 

(3701,315:8) 

(PDLL, 3C 06:8, 8) 

( P DLL : 9 ) 

(315:) 

(3T01,AC6,3C02:9,8,8) 
(3T01 ,31o:8) 

(PDLL, 3C 07:8*8) 

( P DLL : 8 ) 

(316:) 

(3T01,AC7,3C02:8,8,8) 

(3701,317:9) 
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p 


1 54 s . a s s i gn 


(P0LL,9C03:8,8) 


p 


1 55s . i ssuevent 


(POLL: 8) 


p 


156s. 1 oc 


017: 0 


p 


1 57s . ne 


OT01,AC8,3C02:8,8,8) 


p 


1 58s . j mof 


C3T01 ,318:3) 


p 


159s. assign 


(P0LL,9C09:8,8) 


p 


160s. i ssuevent 


( POLL : 8 ) 


p 


1 6 1 s . 1 oc 


( 3 1 8 : ) 


p 


1 62s . ne 


(3T01 ,AC9,9CO2:8,8,0) 


p 


16 3s. j m o f 


OTO 1 ,a)19:8) 


p 


169s. assign 


(P0LL,9C10:8,8) 


p 


165s.issuevent 


(POLL:0) 


p 


1 66s . 1 oc 


019: ) 


p 


167s. assign 


(SMMANUAL, 9C02: 1 ,8) 


p 


1 68s . ex i t di-oc 


(MANUAL, MANUAL: ) 


p 


1 69 1 . generated 


for: SMAUTO 


******************** 


P 


170s. oroc 


(S*AUT0: ) 


P 


1 7 1 s . sensec ond 


(KEYCHAR:8) 


P 


17 2s. e * i toroc 


(SMAUT0,SMAUT0: ) 


P 


1 73t .generated 


for: AUTO 


***************** 


* * * 


P 


179s. oroc 


(A JTO: ) 


P 


1 75s. assign 


(MENU, t)C 03:8, 8) 


P 


176s.issuevent 


( M E N U : 8 ) 


P 


177s. sens ec on d 


(KEYChAR:8) 


P 


1 78s . eq 


(3T01 ,KEYCHAR,9C02:S,8,8) 


P 


1 7 9s . j mo f 


OTO 1 , 920:8) 


P 


1 80s . ass i gn 


(KEYINMA INOCO 1 : 1 , 3) 


P 


1 8 1 s . 1 oc 


020: ) 


P 


1 82s . ea 


OT01,KEYCHAR,3C 01:8, 0,8) 


P 


183s. jmof 


(9101,321 :8) 


P 


1 89s . ass i gn 


( I NTPERI0D,9C1 1:8,8) 


P 


1 85s . 1 oc 


(321 : ) 


P 


1 86s . ea 


OT01,KEYCHAR,9C 03:8, 8,8) 


P 


1 8 7 s . j mo f 


(3T01 ,o)22:8) 


P 


1 88s . ass i gn 


(INTPERI00,3C12:8,8) 


P 


1 89s . 1 oc 


(322: ) 


P 


1 90 s . ea 


(3T01,KEYCHAR,9C09:8,8,8) 


P 


191s. jmof 


(3T01 ,923:8) 


P 


192s .assign 


(INTPERI0D,3C13:8,8) 


P 


193s. 1 oc 


(923: ) 


P 


1 99s . eq 


(9101 ,KEYCHAR,3CO5:0,8,8) 


P 


195s. j mo f 


(3T01 ,329:8) 


P 


1 96s . as s i gn 


(INTPERI0D,3C19:8,8) 


P 


1 9 7 s . 1 oc 


(329: ) 


P 


1 90s . ea 


OT01,KEYCHAR,9C06:3,8,8) 


P 


199s. jmof 


(3T01 ,325: 8) 


P 


200s. assign 


(INITPERI00,3C06: 3,8) 


P 


20 1 s . 1 oc 


(325: ) 


P 


202s . eq 


(9T01,KEYCHAR,3C07:8,8,8) 
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CL Q 



P 20 3s . j mo f 
P 204s. assign 
P 205s . 1 oc 
P 206s. assign 
P 207s . ass i gn 
P 208s. assign 
P 209s.exitoroc 
P 2 1 0 t . generated 



OTOl , il26:8) 
(IMTPERI0DOC01:8,8) 
026: ) 

(INTTIME,CL0CK:9#P) 
(SMAUT0OC02: 1,8) 
(TPOLL, iCOl : 1 ,8) 

( A JTO, AUTO: ) 
for: TPOLL 



******************** 



P 211s. oroc 
P 212s. sub 
P 213s. gt 
P 214s. jmof 
P 215s. assign 
P 2 1 6s . 1 oc 
P 217s.exitDroc 
P 2 1 8t . gene rated 



(OOLl: ) 

OT01,CL0CK,INTTIME:8,8,8) 
OTOIOTOI , INTPE9I0D:8,8,8) 
O T 0 1 ,5)27:8) 

(OOLLOCOl : 1 ,8) 

027: ) 

(TPOLL, TPOLL: ) 
for: POLLAJTO 



******************** 



P 219s. oroc 
P 220s. ne 
P 22ls.jmof 
P 222s. assign 
P 223s . i ssuevent 
P 224s. 1 oc 
P 225s . ne 
P 226s . J mo f 
P 227s. assign 
P 228s. i ssuevent 
P 229s. loc 
P 230s. ne 
P 231s, j mD f 
P 232s. assign 
P 233s . i ssuevent 
P 234s . 1 oc 
P 235s. ne 
P 236s. jm of 
P 237s . ass i gn 
P 238s. i ssuevent 
P 2 39s . I oc 
2 4 0 s . ne 
24 1 s . j mo f 
P 242s .assign 
P 243s . i ssuevent 
P 244s. loc 
P 245s. ne 
P 246s . j mo f 
P 247s. assign 
P 248s. i ssuevent 
P 249s. loc 
P 250s. ne 
P 25 1 s . j mo f 



(PDLLAUTO: ) 

OTO 1 ,AC0OC02: 8, 8,8) 
OTOl 028:8) 

(POLL OC02 : 8 , 8 ) 

( P 3LL : 8 ) 

028 : ) 

OTO 1 , AC 1 OC02:9,8,8) 
OTOl ,329:8) 
(POLLOCOl : 8 , 8 ) 

( POLL : 8 ) 

029: ) 

OTOl, AC2OC02: 8, 8, 8) 
OTOl 030:8) 

(POLL, a)C 03:8, 8) 

(POLL : 8) 

030 : ) 

OTOl ,AC3OC02:3,8,8) 
OT01O31 : 8 ) 

(POLL, a)C 04:8, 8) 

( POLL t 8 ) 

(931:) 

OTOl , AC4OC02:8,8,8) 
OTOl, 932 : 8 ) 

( POLL OC05 : 8 , 8 ) 

( POLL : 8 ) 

032: ) 

OTOl, AC5OC02:8,8,8) 
OTOl 033:8) 
(P0LLOC06:8,8) 
(P3LL:8) 

(933: ) 

OTOl , AC6, a)C02: 8, 8, 8) 
OTOl 034:8) 



P 252s . assign 
P 253s . i ssuevent 
P 254s . 1 oc 
P 255s. ne 
P 256s. j mo f 
P 257s. assign 
P 258s . i ssuevent 
P 259s. loc 
P 260s . ne 
P 26 1 s . j rnp f 
P 262s.assign 
P 263s.issuevent 
P 264s. loc 
P 265s. ne 
P 266s . j mo f 
P 267s . ass i gn 
P 268s . i ssuevent 
P 269s . I oc 
P 270s. assign 
P 271s. exit oroc 
P 2 7 2 t . gene r a t e d 



(P0LLOC07:8,8) 

( P DLL : 8 ) 

034: ) 

C <5 r 0 1 , AC 7 , 5C 02 : 3 , 8 , 8 ) 
OTOl 035:8) 
(P0LLOC08:8,8) 

(POLL : 8 ) 

(535: ) 

OTOl , AC8OC02: 3, 8, 8) 
OTOl 036:8) 

(POLL, a)C09:8,8) 

(POLL: 8) 

(536: ) 

OTOl , AC 9, 5C02.*8,8,8) 
OTOl 037:8) 

( POLL OC 1 0 : 8 , 8 ) 

( POLL : 8 ) 

037: ) 

(TP0LLOC02: 1,8) 
(POLLAUTO, POLLAUTO: ) 
for: MMSGDSPLY 



******************** 



P 273s. oroc (MMSGDSPLY: ) 

P 27 4 s . sen s ec on d (KEYCHAR:8) 

P 275s . ex i t oroc ( MMSGDSPL Y OMSGDSPL Y : ) 
P 2 76 t . gene r a t ed for: MSGDSPLY 



******************** 



P 277s. oroc 
P 278s. assign 
P 279s . i ssuevent 
P 280s. assign 
P 28 1 s . i ssuevent 
P 282s.assign 
P 283s . i ssuevent 
P 284s. assign 
P 285s . i ssuevent 
P 286s. assign 
P 287s.issuevent 
P 288s .assign 
P 289s . i ssuevent 
p 290s. assign 
P 291s.issuevent 
P 29?s . as s i gn 
P 293s. i ssuevent 
P 294s .assign 
P 295s . i s suevent 
P 296s. assign 
P 297s.issuevent 
P 298s .assign 
P 299s.exitDroc 
P 300 1 . generated 



(MSGDSPLY : ) 
(MSGVDT,MSG0:8,8) 
(MSGVDT : 8 ) 

(MSGVDT, MSG1 : 8, 8 ) 
(MSGVDT : 8 ) 

(MSGVDT ,MSG2:8,8) 

( MSGVDT : 8) 

(MSGVDT, MSG3:8, 8) 
(MSGVDT : 8) 

(MSGVDT, MSG4:8, 8) 

(MSGVDT :8) 

(MSGVDT, MSG5:8, 8) 
(MSGVDT : 8) 

(MSGVDT, MSG6:8, 8) 
(MSGVDT : 8 ) 

(MSGVDT, MSG7:8, 8) 
(MSGVDT : 8 ) 

(MSGVDT, MSG8:8, 8) 
(MSGVDT :8) 

(MSGVDT, MSG9: 8, 8) 
(MSGVD T : 8 ) 

(MMSGDSPLYOCO 2: 1,8) 
(MSGDSPLY , MSGDSPLY : ) 
for: ML OC A T I ONI 
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P 301s. oroc (^LOCATION: ) 

P 302s . sensec ond (KEYCHAR:8) 

P 303s. exi toroc ( MLOC A T I ON ,^L 0C A T I ON : ) 
P 30 4 t . gene r a t e d for: LOCATION 
******************** 



P 305s . oroc 
P 306s.assiqn 
P 307s . i ssuevent 
P 308s . sensecond 
P 309s . eq 
P 3 1 0 s . j mo f 
P 3 1 1 s . as s i gn 
P 312s. loc 
P 3 1 3s . eq 
P 3 1 4s . j mo f 
P 315s. assign 
P 316s. 1 oc 
P 3 1 7s . eq 
P 3 1 8s . j mo f 
P 319s. assign 
P 320s. assign 
P 32 1 s . 1 oc 
P 322s.assign 
P 323s.exitoroc 
P 324 1 . generated 



(LOCATION: ) 

(MENU,, SIC 04: 8, 6) 

(MENU:8) 

( KEYCHAP : 8 ) 

(3T01,KEYCHAR,3C02:8,8,8) 
( 3 T 0 1 ,938:8) 

(KEY I NM A I N , 3C 0 1 : 1 , 8) 

(538: ) 

(flT01,KEYCHAR,3C01:8,8,8) 
OT01 ,339:8) 

(NErtPOS,3C01 : 1 ,8) 

(-339 : ) 

OT01,KEYCHAR,9C03:8,8,8) 
( <x) T 0 1 ,340:8) 

( NEvVPOS , t)C 02 : 1,8) 

(T ^LOCATION, 9C0 1 :8,8) 
040: ) 

(MLOCATION,3C02: 1,8) 
(LOCATION, LOCATION: ) 
for: TML0CAII0N 



******************** 



P 325s. oroc ( T MLOC A T I ON : ) 

P 326s . sensec ond (KEYCHAR:8) 

P 327s. ex i toroc ( T MLOC A T I ON , TML0C A T I ON : ) 

P 328t . gene ra t ed for: MANL0C 
******************** 



P 329s. oroc (MANL0C:) 

P 330s . sensecond (MANP0S:8) 

P 331s. assign ( P OS I T I ON , M ANP0S : 8 , 8 ) 

P 332s. assign ( TML0CAT ION, 3C02 : 1 , 8) 

P 333s. exi toroc ( MANL0C , MA NL0C : ) 

P 3 34 t . gene r a t ed for: MCL0CKSET 

******************** 



P 335s. oroc (MCL0CKSET:) 

P 336s . sensecond (KEYCHAR:8) 

P 337s. exi toroc ( MCL0CKSE T , MCL 0CKSE T : ) 
P 3 38 t . gene r a t e d for: CL0CKSET 
******************** 



P 339s. oroc (CL0CKSET:) 

P 340s. assign ( MENU , »C 05 : 8 , 8 ) 

P 34 1 s . i ssuevent (MENU:8) 

P 342s . sensecond (KEYCHAR:8) 

P 343s. assign ( MCL0CK SE T , 3C 02 : 1 , 8 ) 

P 344 s . exi toroc ( C LOCK SE T , CLOCK SET : ) 

P 345t . generat ed for: ML0GIN0UT 
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a******************* 



P 346s. oroc ( MLOG I NOUT : ) 

P 347s. sensecond ( KEYCHAR : 8 ) 

P 348s.exitoroc (MLOGINOUT, w LOGINOUT:) 
P 34 9 1 . ge ne r a t e d fort LOGINOUT 
******************** 



P 350s . oroc 
P 35 1 s . ass i on 
P 352s . i ssue ven t 
P 353s . sensecond 
P 354s . eq 
P 355s . j rriof 
P 356s .assign 
P 35 7 s . 1 oc 
P 356s . ea 
P 359s , j mof 
P 360s . ass i qn 
P 361s. loc 
P 362s. eq 
P 36 3s. j mo f 
P 364s. assign 
P 365s . 1 oc 
P 366s. assign 
P 367 s . e x i t o roc 
P 368 1 . generated 



( LOG I NOUT : ) 
(MENU,5)C06:6,8) 

(MENU:8) 

(KEYCHAR:8) 

OT01,KEYCHAR,3C 02:8*8, 8) 
( JT01 ,341 :8) 

(KEYINVIAIN, ?C0 1 : 1 , 8) 

(5)4 1 : ) 

OT01,KEYCHAR,3C0l:8,8,8) 
(3T01, 342:8) 

( TLOGIN, 3C 01 : 1 ,8) 

(342: ) 

(3T01,KEYCHAR,3C03:8,8,8) 
(3T01 ,343:8) 

(TLOGOUT,3C01 :1 ,8) 

(343: ) 

(MLOGINOUT, 3C02: 1,8) 
(LOGINOUT ,L0GIN0UT : ) 
for: TLOGIN 



******************** 



P 369s. oroc (TLOGIN:) 

P 370s. sensecond (KEYCHAR:8) 

P 371s. exi (oroc ( T L OG I N , T L OG I N : ) 

P 3 72 t . gene ra t ed for: LOGIN 
******************** 



P 373s. oroc 
P 374s. assign 
P 375s. sensecond 
P 3 7 6s . eq 
P 377s. ea 
P 378s . and 
P 3 7 9s. j mo f 
P 380s. assign 
P 38 1 s . 1 oc 
P 382s . eq 
P 383s . eq 
P 384s . and 
P 385s . j mof 
P 386s .assign 
P 387s. loc 
P 388s . eq 
P 389s. eq 
P 390s . and 
P 39 1 s . j mDf 
P 392s. assign 



(LOGIN: ) 

(ACNUM,3C02:8,8) 

( ACNtlM:8) 

OT01,NEXTAC,3C02:9,8,8) 
(5)T02,AC0,5)C02:8>8,8) 
(5)T01,5)T01 ,3T02;8,8,8) 

( 3 T 0 1 ,5)44:8) 

( A C 0 , AC NUM : 8 , 8 ) 

(5)44 : ) 

(3T01,NEXTAC,aC01:9,8,8) 
(5)T02, ACl,aC02:8,8,8) 

( 5) T 0 1 , 5)T 0 1 , 5T02: 8, 9, 8) 
(3T01 ,5)45:8) 

C AC 1 , ACNUM:8,8) 

( 345 : ) 

(3T01,NEXTAC,aC03:9,8,8) 
(3T02, AC2, 3C02: 8, 8, 8) 
(5lT01,5)T01,5)T02:8,8,8) 

caroi ,5)46:8) 

( A02, ACNUM j 8, 8) 
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p 


393s. 1 oc 


(546: ) 


p 


394 s . eq 


(5701,NEX7AC,5C04:9,8,8) 


p 


395s . eq 


(5702, AC3, 5C02:8,8,B) 


p 


396s. and 


(5T01, 5701, 5 702:8, 3, 8) 


p 


397s. jmof 


(5701,547:3) 


p 


398s .assign 


( AC3, ACNUM:8,8) 


p 


399 s . 1 oc 


(547 : ) 


p 


400s . eq 


(5701,NEX7AC,SC05:9,8,8) 


p 


4 0 t s . eq 


(5702, AC4,5C02:8,8,8) 


p 


402s .and 


( 5 T 0 1 , a) T 0 1 ,5702:8,3,8) 


p 


403s. jmof 


(5701,548:8) 


p 


404s. assign 


(AC4, ACNUM: 8, 8) 


p 


4 05s . 1 oc 


(548: ) 


p 


406s . eq 


(5T01,NEXTAC,5C06:8,8,8) 


p 


4 0 7 s . ea 


(5T02,AC5,5C02:8,8,8) 


p 


408s . and 


(5T01,5T01 ,5T02:8,8,8) 


p 


4 09s. j mp f 


(5T01 ,549:8) 


p 


410s. assign 


( A C5 , A C NUM : 8 , 8 ) 


p 


4 1 1 s . 1 oc 


(549: ) 


p 


4 1 2s . eq 


(570 1 ,.MEX7AC,5C07:8,8,8) 


p 


4 1 3s . eo 


(5702, AC6,5C02:8,8,8) 


p 


4 1 4 s . and 


(5701, 5T01, 5702:8, 8, 8) 


p 


415s. jmof 


(5701,550:8) 


p 


41bs.assi gn 


(AC6, ACNU^:8,8) 


p 


417s. loc 


(550: ) 


p 


4 1 8s . eq 


(5701,NEX7AC,5C08:8,8,8) 


p 


4 1 9s . eo 


(5702, AC7,5C02:9,8,8) 


p 


420s. and 


(5701 , 5T 0 1 ,5702: 8,8,8) 


p 


4 2 1 s . j m o f 


(5701,551:8) 


p 


422s . ass i gn 


(AC7,ACNU M :8,8) 


p 


423s . 1 oc 


(551 : ) 


p 


424s . eq 


(5701 ,NEXT AC,5C09: 8,3,8) 


p 


4 25s . eq 


(5702, AC8, 5C 02:8, 8, 8) 


p 


426s . and 


(5701,5701,5702:8,8,8) 


p 


427s. jmof 


(5701 ,552:8) 


p 


428s. assign 


(A:8, ACNUM:8,8) 


p 


429s. 1 oc 


(552: ) 


p 


4 30 s . eo 


(5701 ,NEX7 AC, 5C10: 9,8,8) 


p 


4 3 1 s . eq 


(5702, AC9,5C02:9,8,8) 


p 


4 32s . and 


(5701,5701 ,5702:9,3,8) 


p 


433s. jmof 


(5701,553:8) 


p 


434s . ass i gn 


(AC9, ACNUM:8,8) 


p 


4 35s . 1 oc 


(553: ) 


p 


436s , add 


(5701,NEX7AC,5C01:9,8,8) 


p 


437s. assign 


(NEX7AC,5T01 : 8 , 8 ) 


p 


4 38s . eq 


(5701 ,NEX7AC, 5C14;8,8,8) 


p 


439s. jmof 


(5701 ,554:8) 


p 


440s. assign 


(N£XTAC,5C02:8,8) 


p 


441s. loc 


(554: ) 


p 


442s . ass i gn 


( 7 LOG I N , 5C 02 : 1,8) 


p 


443s.exitoroc 


(LDGIN, LOGIN: ) 
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p ildilt .generated for: TLOGO'JT 

******************** 



P 445s . oroc ( T LOGOI) T : ) 

P 446s . sensecond (KEYCHAR:8) 

P 447s. exi toroc ( T LOGOUT , TLOGOUT : ) 
P 4 48 t . gene r a t ed for: LOGOUT 
******************** 



P 449s. oroc 
P 450s. assign 
P 451s. sensecond 
P 452s . eg 
P 453s . j mof 
P 4 54s. assign 
P 455s . 1 oc 
P 456s . eo 
P 4 5 7s. j mo f 
P 458s .assign 
P 459s. loc 
P 460s. eq 
P 46ls.jmof 
P 462s .assign 
P 463s. loc 
P 464s. eq 
P 465s. jmpf 
P 466s. assign 
P 467s. loc 
P 463s. eq 
P 469s. jmof 
P 470s. assign 
P 47 1 s . 1 oc 
P 472s . eq 
p 473s. jmof 
P 474s. assign 
P 4 75s . 1 oc 
P 4 76s . eq 
P 477s. jmof 
P 478s . ass i gn 
P 479s. loc 
P 480s . eq 
P 481s. jmof 
P 482s . ass i gn 
P 483s. loc 
P 484s. eq 
P 485s . j mDf 
P 486s.assiqn 
P 487s . 1 oc 
P 4 8 8 s . eq 
P 489s. jmof 
P 490s. assign 
P 49 1 s . I oc 
p 492s. assign 



(LOGOUT : ) 
(ACNUM,3C02:8,8) 

( A C MUM : 8 ) 

OTOl , AC0 , ACNUM: 8, 3, 8) 
(ST 01, o)55: 8) 
(AC0,3C02:8,8) 

055: ) 

OTOl , AC 1 , ACNUM;3,8,8) 
O T 0 l , o)56: 8) 

(ACOOCOl : 8 , 8 ) 

056: ) 

OTOl , AC2, ACMUM: 3, 8,8) 
OTOl, 357:8) 

( AC0OC03: 3, 8) 

(357: ) 

(3T01,AC3,ACNU^:3,8,8) 
( 3 T 0 1 , 358:8) 
(AC0,3C04:8,8) 

(358: ) 

(3 TO 1 , AC 4 , ACMUM; 8, 3,8) 
( 3 T 0 1 , 359: 3) 
(AC0,3C05:3,8) 

(3 59 : ) 

( 3 T 0 1 , AC5,ACNUM:3,S,8) 
(3T01 ,o)60: 3) 
(AC0,3C06:8,8) 

(360 : ) 

(3T0 1 , AC 6 , &CNUM;8, 8,8) 
( 3 T 0 1 ,361 : 8 ) 
(AC0,3C07:3,8) 

(361 : ) 

(3T01 , AC7, ACMUM: 8, 8,8) 
( 3 T 0 1 ,o)62: 3) 
(ACO,3C08:8,8) 

(362: ) 

(3T01,AC8,ACNUM:8,3,8) 
( 3 T 0 1 ,363: 8) 
(AC0,3C09:8,8) 

(363: ) 

( 3 T 0 1 , AC 9 , ACMUM: 8 , 8,8) 
OTOl , 364: 8) 
(AC0,3C10:8,8) 

(364 ; ) 

(TLOGOUT ,3C02: 1 ,3) 
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P 493s. ex i toroc (LOGOUT , LOGOUT : ) 
P 4 94 t . ge ne r a t ed for: POSCH 



P 495s. oroc 
P 49fes . sensecond 
P 497s. eq 
P 498s. j mo f 
P 4 99s. assign 
P 500s. loc 
P 50ls.exitoroc 
P 502t . generat ed 



(POSCH: ) 

(NErtPOS: 1 ) 

(3T01 ,NEWPOS,3C01 : 3 , 1,8) 
( 9 T 0 1 , 365 : 8 ) 

(POSCH, 9C01 : 1 ,8) 

(365: ) 

(POSCH, POSCH: ) 
for: P0SUP3ATE 



******************** 



P 503s. oroc ( POSUPDATE : ) 

P 504s.sensecond (POSITION :3) 

P 505s. assign (POSCH, SC 02: I ,8) 

P 506s. ex i toroc (POSUPDA TE , POSUPDA TE : ) 

P 50 7 t . ge ne r a t e d for: MSGIN 



P 508s . oroc 
P 509s . sensecong 
P 5 1 0 s . eg 
P 5 1 1 s . j mo f 
P 512s. assign 
P 513s. loc 
P 514s.exitoroc 
P 5 1 5 1 . generated 



(MSGIN: ) 

(MSGREAOr : 1 ) 

(ST01 , MSGREADY, 9C01 :8, 1 ,8) 
( 9 T 0 1 , 96b : 8 ) 

(MSGIN, 3C0 1 : 1 , 8) 

( 966 : ) 

(MSGIN, MSGIN: ) 
for: MSGSTORE 



******************** 



P 5 1 6s . oroc 
P 517s. sensecond 
P 5 1 8s . i s sue ven t 
P 519s. 9q 
P 520 s. j wd f 
p 52 1 s . ass i qn 
P 522s .loc 
P 523s . eq 
p 524s . j no f 
P 525s .assign 
P 526s . 1 oc 
P 527s. eo 
P 528s . j mpf 
P 529s . ass i gn 
P 530s . I oc 
P 53 1 s . eq 
P 5 32s . j mo f 
P 533s. assign 
P 534s . 1 oc 
P 535s. eo 
P 536s. jmof 
P 537s. assign 
P 538s. 1 oc 
P 5 39s . eo 



(MSGSTORE: ) 

(MESSAGE : 8 ) 

(MSGRCVD: 1 ) 

(9T01 , NEXT MSG, 3C 02: 8, 8, 8) 
(9T01 ,967:8) 
(A:o,MESSAGE:8,8) 

(967: ) 

(3T0 1 , NEXT MSG, 9C0 1 :3,8,8) 
( 3 T 0 1 ,368:8) 

( A C 1 , MESSAGED, 8) 

(968: ) 

(9T01,NEXTMSG,9C03:8,8,8) 
(3 TO 1 ,969: 8) 
(AC2,MESSAGE:8,8) 

(369: ) 

(3T01,NEXTTSG,oiC04:9,8,8) 
(3T01 ,370:8) 

(AC3, MESSAGED, 8) 

(970: ) 

( 3 T 0 1 ,NEXTMSG,3C05:8,8,8) 
(3T0 1 , 37 1 : 8) 

( AC4 , MESSAGE : 8 , 8 ) 

(371:) 

(9T01 ,NEXTMSG,3C06:8,8,8) 
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P 54 0 s . j mo f 
P 541s. assign 
P 542s. 1 oc 
P 543s . eq 
P 544s. j vof 
P 545s. assign 
P 54fes . 1 oc 
P 54 7 s . eq 
P 548s.jTiof 
P 549s. assign 
P 550s. 1 oc 
P 551s. eg 
P 552s . j mo f 
P 553s. assign 
P 554 s . 1 oc 
P 555s . ea 
P 55fes.j(Dof 
P 557s. assign 
P 558s . 1 oc 
P 559s. add 
P 5o0s. assign 
P 56 1 s . eq 
P 562s.j'DOf 
P 563s. assign 
P 5b4s.loc 
P 565s . ex i t oroc 
P 566t . generat ed 
p 567s . cons 
P 568s. cons 
P 569s. cons 
P 570s. cons 
P 571s. cons 
P 572s. cons 
P 573s. cons 
P 574s. cons 
P 575s . cons 
P 576s. cons 
P 577s. cons 
P 578s. cons 
P 579s. cons 
P 580s . cons 
P 581s. var 
P 582s. var 



(9T01, 972:8) 

(AC5, MESSAGE: 8, 8) 

(572: ) 

(9101, NE XT MSG, 5C 07:9, 8, 8) 

( 5 T 0 1 ,573:8) 

(AC6,MESSAGE:8,8) 

(573: ) 

(9T01 ,NEXTMSG,9C08:8,8,8) 

(5101,574:8) 

(AC7,MtSSAGE:8,8) 

(574: ) 

(9T01 ,NEXTMSG,aC09:B,8,8) 

( 9 T 0 1 , 575: 8) 

( AZB, MESSAGED, 8) 

(575: ) 

(5T01 , NEXT MSG, 9C 10: 8, 8, 8) 

( 9 T 0 1 ,976: 9) 

(AC9, MESSAGED, 8) 

(976: ) 

(9T01,NEXTMSG,9C01:8,8,8) 

(NEXTMSG, 9T0 1 :8,8) 

(9T01 , NEXT MSG, 9C 1 4 : 9,8,8) 

(9r01 ,977:8) 

(NEXTMSG, 9C02:8, 8) 

(977:) 

(MSGSTORE,MSGSTORE: ) 

for: SYSTEM ******************** 

(9C01 ,1:8) 

( 9C02 , 0 : 8 ) 

( 5C 0 3 , 2 : 8 ) 

( 9C04 , 3 : 8 ) 

(9C05, 4:8) 

(9C06,5:8) 

( 9C 0 7 , 6 : 8 ) 

(9C09, 7: 8) 

( 9C 09 , 8 : 8 ) 

(9C1 0,9:8) 

(9C1 1,30:8) 

( 9C 1 2 , 20 : 8 ) 

(9C13, 15:8) 

( 9C 1 4 , 10:8) 

( 9 T 0 1 : 8 ) 

(9T02: 8) 
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APPENDIX D 



NEaCSDL.FOR OUTPUT 
LISTING (SOFTWARE) 



- intel 8086 realization - 



svslA 


e gu 


0D000H 


s y s 1 3 


e gu 


OCOOOH 


s vs 1 2 


e gu 


08000H 


s y s 1 l 


egu 


0A000H 


sys 1 0 


egu 


9 0 0 0 H 


svs9 


egu 


8 0 9 0 H 


sy s8 


egu 


7 0 0 0 H 


sys 7 


egu 


6000H 


sy s6 


egu 


50 0 0 H 


sy s5 


egu 


4000H 


svs9 


egu 


3 0 0 0 H 


sy s3 


egu 


2 0 0 0 H 


s y s2 


egu 


1 000H 



;this routine allows for a IK stack. a stack that 
arows larger than 

;this will overflow into the data segment. to allow a 
larger stack 

; t he ranDtr global orimitive in s.main must be set to 
the required 

lvalue. this method overlaos 64K of stack segment and 
6 '4 K of data 

; segment . 



base address 



base address 



org 


****** 


; r om address oointer 


mov 


OX, 03FFH 


; set data segment 


mov 


OS, OX 


; t o 10 29 


m o v 


OX , 0000H 


;set stack seament 


mo v 


SS,DX 


; t o 0 0 0 0 H 


j mo 


0F000H 


J i u m p to low 



3? 



address of highest 



high 6 4 K 



i n ra^ 



KEYING; 



i o ram 



MINTAC : 



1 n ram 



v'MSGDS: 



i m ram 



MLOC A r : 



in ram 



MCLOCK : 



i o ram 



MLOGIN: 



i *i ram 



SMMANU : 



i n ram 



S^AJTO: 



ram 



;6aK block 



o r g 


****** 


f 


r 07) 


add r e s s 


oointer 


j 710 


OEOOOH 




; to 


do 1 1 orr 


of 2nd 








; b 1 oc k 




orq 


102^ 










t storage 










orq 


1023 


?8 


b i t 


vari ab 1 


e KEYINM 


do 


0 










o r g 


983046 


? 


r on 


add r e s s 


oointer 


t storage 










o rg 


1023 


;8 


b i t 


vari ab) 


e MINTAC 


do 


0 










o rg 


983046 


} 


r om 


address 


DO i nt e r 


t storage 










o rg 


1023 


; 8 


b i t 


variaol 


e M-1SGD5 


do 


0 










ora 


983046 


I 


r on 


add re s s 


oointer 


t storage 










o rg 


1023 


; 8 


b i t 


va r i ab 1 e ^LOC A T 


do 


0 










orq 


983046 


• 

9 


r om 


add re s s 


ooi n t e r 


t storage 










orq 


1023 


; 8 


b i t 


v a r i a b ] 


e MCL0CK 


do 


0 










orq 


983046 


• 


r 07) 


address 


ooi n t e r 


t s t o rage 










o rg 


1023 


;8 


b i t 


variable MLOGIN 


do 


0 










orq 


983046 




r 0 7) 


address 


oointer 


t storage 










ora 


1 023 


; 8 


D i t 


vari ao 1 


e SMMANU 


do 


0 










orq 


983046 


r 


r 07) 


address 


oointer 


t st oraae 










orq 


1023 


; 8 


b i t 


vari ab 1 


e SMAUT0 


do 


0 










o r g 


983046 


} 


r o Ti 


address 


ooi n t e r 


t storage 










orq 


1023 


;8 


b i t 


variable ACO in 



ACO : 



db 









orq 983096 


1 


r o m 


address 


oointer 




/define 


8-b i 


t st oraqe 
org 1023 


;8 


b i t 


vari a b 1 


e A C 1 in 


ram 


AC 1 : 


db 


0 
















orq 983096 


• 

9 


r om 


address 


oointer 




/define 


8 -b i 


t storage 
org 1023 


; 8 


b i t 


var i abl 


e A C 2 in 


ram 


AC2: 


db 


0 
















ora 983096 


9 


r om 


address 


oo i n t e r 




; de f i ne 


8-b i 


t storage 
org 1023 


;8 


bi t 


va r i ab 1 


e A C l in 


ram 


A C 3 : 


db 


0 
















orq 983096 


1 


r om 


address 


oointer 




; de f i ne 


8 - b i 


t storage 
ora 1023 


;8 


b i t 


vari abl 


e A C 4 in 


ram 


Aca: 


db 


0 
















ora 983096 


9 


r om 


address 


o o i n t e r 




; de f i ne 


8-b i 


t storage 
org 1023 


; 8 


b i t 


vari abl 


e A C 5 in 


ram 


ACS : 


db 


0 
















org 983096 


• 

9 


r om 


address 


oointer 




; de f i ne 


8 -b i 


t storage 
org 1023 


; 8 


bi t 


va r i ab 1 


e AC 6 in 


r am 


AC6: 


db 


0 
















org 983096 


9 


r om 


address 


oo i n t e r 




; de f i ne 


8 -b i 


t storage 
org 1023 


; 8 


b i t 


va r i ab 1 


e A C 7 in 


ram 


AC 7: 


db 


0 
















orq 983096 


• 

9 


r om 


address 


oointer 




/define 


8-b i 


t storage 
org 1023 


; 8 


b i t 


vari abl 


e A C 8 in 


ram 


AC8 : 


db 


0 
















org 983096 


• 

9 


r orn 


add re s s 


oo i n t e r 




/define 


8-b i 


t storaae 
orq 1023 


; 8 


b i t 


vari abl 


e A C 9 in 


ram 


AC9: 


db 


0 
















ora 983096 


9 


r om 


address 


oointer 




/define 


8-bi 


t storage 
org 1023 


; 6 


bi t 


vari abl 


e INTPER 


i n ram 


nTPER: 




do 0 

orq °8 3 0 9 6 


9 


r om 


address 


do i nter 
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; define 8-oit storage 

on 10 2 3 



i n ram 

MSGO : 

Z de f i ne 



i n ram 

MSG 1 : 
/define 



i n ram 

MSG2: 

/define 



in ram 

MSG 3 : 
/define 



i n ram 

MSG4 : 
/define 



in ram 

MSG5: 

/define 



i n ram 

MSG5 : 
/define 



i n ram 

MSG7: 

/define 



i n ram 

MSG8 : 
/define 



in ram 

MSG9 : 
/define 



do 0 

orq 983046 

8-bit s t o rage 

o r g 10 2 3 

do 0 

orq 983046 

8-bit storage 

orq 1023 

do 0 

orq 983046 

8-bit storage 

orq 1023 

do 0 

orq 983046 

8-bit st orage 

orq 1023 

do 0 

org 983046 

8-bit storage 

orq 1023 

do 0 

orq 983046 

8-bit storage 
orq 1023 

do 0 

orq 983046 

8-bit st orage 

orq 1023 

do 0 

org 983046 

8-bit storage 

orq 1023 

do 0 

orq 983046 

8-bi t storage 

orq 1023 

do 0 

orq 983046 

8-bit storage 



Z8 oit variable MSGO 

/ rom address oointer 
/ 8 oit variable MSG1 

/rom address oointer 
Z8 oit variable MSG2 

/rom address Dointer 
/ 8 bit variable M S G 3 

/rom address oointer 
/ 8 bit variable MSG4 

/rom address oointer 
/ 8 bit variable MSGS 

/rom address oointer 
/ 8 bit variable MSG6 

/rom address pointer 
/ 8 bit variable M S G 7 

/rom address oointer 
/ 8 bit variable M S G 8 

/rom address oointer 
/ 8 bit variable M S G 9 

/rom address oointer 
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orq 


1 023 


; 8 bit variable TMLUCA 


i n 


ram 










TMLOC A : 


do 


0 








orq 


983046 


} rom address oointer 




; de f i ne 


8 -bit storage 








o rg 


1023 


? 8 bit variable TLOGIN 


i n 


ram 










TLOGIN; 


do 


0 








orq 


p 83046 


; rom address oointer 




; de f i ne 


8-bit storage 








orq 


1023 


; 8 bit variable TLOGOU 


i n 


ram 










TLOGOU : 


do 


0 








orq 


983046 


1 rom address oointer 




; define 


8 -bit storage 








orq 


1023 


; 8 bit variable NEXTMS 


i n 


ram 










NEXTMS: 


do 


0 








orq 


983046 


; rom address oointer 




; d e f i n e 


8-bit storage 








orq 


1 023 


; 8 oit variable NEXTAC 


i n 


ram 










NEXTAC: 


do 


0 








orq 


983046 


; rom address oointer 




1 de f i ne 


8-bit storaoe 








orq 


1023 


; 8 bit variable TP0LL 


i n 


ram 










T p 0LL : 


db 


0 








orq 


983046 


; rom address ooint-er 




# de f i ne 


8-bit storage 








orq 


1 023 


; 8 bit variable COUNT 


i n 


ram 










COUNT : 


db 


0 








orq 


983046 


; r o m address oointer 




; d e f i n e 


8-bit storage 








ora 


1023 


; 8 bit variable CLOCK 


i i 


ram 










CLOCK : 


db 


0 






• 


orq 


983046 


; rom address oointer 




9 

?orocedure K E Y I N M 








3KEY INM: 


n do 




* ent ry point for 


KEYING 










? d e t e c t 


condition- 


tyoe incut (16-bit) 






i n 


AX , 0 


! sense environmental aata 






710 V 


KEYFLG, 


AX 




; t e s t f o 


r equality 


between 


KEYFLG and «)C01 (16-oit) 






710 V 


i)T01 , 1 


jDresuoDose eouality 






•no v 


AX, KEYFLG ; fetch KEYFLG 






ZTlO 


AX , iCO 1 


^compare arguments 






j Z 


S + 4 


;end routine if 
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t rue 







710 V 


a) T 0 t , 0 


; not eaua 1 / <v T 0 1 = 


0 


(Branch 


on 


false 












710 1/ 


A|_ , a) T 0 1 


; 1 oad value into 




accumulator 




c mo 


At, 0 


7 compare to zero 








j Z 


?01 


; j UTiD to 5)01 if 




f a 1 se ( =0 ) 












; ass i on 


value of 


one var i aol e 


to another variable 




( lb-bit ) 




710 V 


AX , i)CO 1 


; assi gn 5)C0 1 








mo v 


KEYINM, AX 


;to KEYINM 




30 1 : 




n od 




: d e f i n e location 5) 0 1 


/ 

procedure 


KBINPM 








3KBIMPM 


• 

# 


n od 




lent ry ooint for 


K3INPM 












Jassign 


val je of 


one variable 


to another variable 




( lfe-bi t ) 




710 V 


AX , SiC0 2 


1 assi qn a) C 0 2 








710 V 


MENU, AX 


;to MENU 




; Send condi t i on-tyoe outout (16-bit) 








710 V 


AX, MENU 


; issue control 








out 


0 , AX 






/detect 


condi t ion 


-type i nout 


(16-bit) 








i n 


A x , i ; 


sense environmental data 






T) 0 V 


KEYCHA, AX 






; t e s t for 


eduality between KEYCHA and o)C01 (16-bit) 








mo v 


il T 0 1 , 1 


Presuppose equality 






710 v 


AX , KEYCHA 


; f e t c h KEYCHA 








C'TlO 


A X , 5 C 0 1 


;comoare arguments 








i z 




lend routine if 




true 




710 V 


8T0 1 , 0 


Inot equal/ 5)101 = 


0 


;oranch 


o n 


false 












710 V 


A L , -J T 0 1 


1 load value into 




accumul ator 




cmo 


X> 

o 


; comoa re to zero 








j z 


a)0 2 


/jumo to 5)02 if 




f a 1 se ( = 0 ) 












; ass i gn 


va 


1 je of 


one variable 


to another variable 




(16-bit) 




710 V 


AX, 3)C01 


; a s s i on a)C 0 1 








710 V 


MINT AC , AX 


Ito MINTAC 








n od 




: define location 5) 


02 


J t e s t for 


equality between KEYCHA and o)C03 (16-oit) 








710 V 


3T01 , 1 


iDresuDcose equal i 


t V 






710 V 


AX , keycha 


; f e t c h KtYC-^A 








Cmo 


AX, S)C03 


;compare arguments 








j z 


S + a 


lend routine if 





t rue 
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mo v 




5 T 0 1 , 0 


I not equal/ n) T 0 1 = 0 


?oranch 


on false 












■no v 




AL , 5T 0 1 


?load value into 


a c c umu 1 ator 




cm o 




AL , 0 


Jcomoare to zero 






j 2 




503 


fjuno to <5 0 3 if 


f a 1 s e ( - 0 ) 












lassiqn 


v a 1 j e of 


one variable 


to another variaole 


( 1 6 - b i t ) 




mo v 




A X , 5 C 0 1 


; a s s i qn oj C 0 1 






mo v 




M5SGDS, AX 


Ito mmsgds 


503 : 




n OP 






Idefine location n)0 3 


;test 


for equality 


between KEYCHA and a) C 0 4 ( 1 6 - o i t ) 






no v 




5T0 1 , 1 


loresuDoose equality 






■no v 




AX , KEYCHA 


/•fetch KEYCHA 






c m o 




AX,5C04 


;comoare arguments 






j z 




$ + a 


1 end routine if 


true 




-no v 




5 T 0 1 , 0 


/not equal/ 5T01 = 0 


; oranc h 


on false 












no v 




AL * 5 T 0 1 


;load value into 


accumulator 




C m o 




AL,0 


^compare to zero 






j z 




504 


/jumo to <504 if 


f a 1 s e ( = 0 ) 












Jassign 


value of 


one variaole 


to another variaole 


( 16-bi t ) 




no v 




A X , 5C 0 l 


; a s s i gn 5C 0 l 






no v 




MLOCAT , AX 


Ito MLOCAT 


504 : 




n dp 






Idefine location a) 0 4 


; test 


for equality 


oet ween KEYCHA and o)C05 (lb-oit) 






no v 




5T01 , 1 


loresupoose equality 






no v 




AX , KEYCHA 


/•fetch KEYCHA 






C m o 




AX,5C05 


; c omoa r e araunents 






j Z 




$ + 4 


; end routine if 


t rue 




no v 




5) T 0 1 , 0 


/not equa 1 / 5T 0 1 r 0 


Joranch 


on false 












no v 




A L , 5 T 0 l 


1 1 oad value into 


accumul ator 




c mo 




AL, 0 


; comoa re to zero 






j z 




50 5 


/jump to alOS if 


f al se(=0) 












lassiqn 


value of 


one variable 


to another variaole 


(16-bit) 




no v 




A X , 5C 0 1 


; a s s i an 5C 0 1 






no v 




MCLOCK, AX 


Ito MCLOCK 


505: 




nop 






Idefine location a) 05 


; t e s t 


for equality 


between KEYCHA and <5 C 0 b (lb-oit) 






no v 




5T 0 1 , 1 


loresupoose equality 






no v 




AX , KEYCHA 


IfetcH KEtCHA 



8ft 





C mo 


A X , 5)C 0 6 




;comoare arquments 




J z 


j ♦ a 




;end routine if 


t rue 


TO V 


a) T 0 1 / 0 




; not equa 1 / oiTO 1 = 0 


; D r anc h 


on false 










710 V 


AL/3T01 




; 1 oid value into 


a:c utu 1 at or 


c mo 


AL, 0 




;comoare to zero 




j z 


30 6 




/ j u m o to 5)0 6 if 


f al se(=0) 










; ass i gn 


value of 


one variaole 


t 0 


another variable 


( 1 6 - b i t ) 


710 V 


A X , 3 C 0 1 




/ a s s i qn a)C 0 1 




710 v 


MLOGIN, AX 




/to MIOGIN 


306: 


non 






Idefine location 206 


/assign 


value of 


one variable 


t o 


another variable 


(16-bit) 


710 V 


A x , 3C 0 2 




; as s i on 3C 02 




mo v 


KEYINM, AX 




;to KEY INM 


/ 

Procedure ^I'JTAC 








3^1 NT AC 


: n oo 






/•entry point for 


MINT AC 










/detect 


condi t i on 


-tvoe i nout 


( lb 


-bit) 




i n 


A X , 2 


sense en v i ronmen t a 1 data 



-nos/ KEYCHA , AX 



Jorocedure INTAC 
5) I N T AC : too 



lentry point for 



I NT AC 

Assign value of one variable to another variable 
(16 — bit) 

Tiov AX,a)C01 Jassiqn C 0 1 

7i o v MENU/AX ; to MENU 

?send condi t i on-t yoe outout (lb-bit) 

ti o v AX^Mffvjy ; issue control 

out 2 , A X 

; detect condi t i on-tyoe inout (16-bit) 

in AX, 3 /Sense environmental data 

7i o v KEYCHA,AX 

;test for equality between KEYCHA and o)C02 (lb-bit) 

i)T01/l loresuooose equality 

AX/KEYCHA /fetch KEYCHA 

AX/51C02 /COmoare arguments 

S + 4 lend routine if 

t) T 0 1 / 0 Jnot equal/ a) T 0 1 = 0 

AL/3T01 ;load value into 

AL/0 ^compare to zero 



true 



710 v 

710 v 
c 71 o 

j z 



710 V 

/•branch on false 

710 V 

accumul ator 

C m 0 
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i»0 7 



j umo to a) 0 7 if 



I Z 

f alse(=0) 

;assign value of one variable to another variaole 
( 16 -bit) 

■nov AX, SC 0 1 Jassian a>C 0 1 

n o v KEYING, AX ; to KEYIN'* 

•t) 0 7 : noo /define location 907 

/test for equality oe tween KEYCHA and SC0 1 (lo-oit) 



true 



a: c umu 1 ator 



nov 


ST01, 1 


loresuDDose equality 


nov 


AX, KEYCHA 


; fetch KEYCHA 


Cno 


AX , SCO 1 


;conoare arqunents 


j z 


t + U 


; end routine if 


nov 

false 


S T 0 1 , 0 


;not equal# 3 T 0 1 = 0 


nov 


AL,ST01 


; 1 oad value into 


C m o 


A L , 0 


/‘compare to zero 


i z 


SOS 


7 j umo to 308 if 



f a 1 s e ( - 0 ) 

/assian valje of one variaole to another variable 
( 16 -bit) 



TIO V 

no v 
noo 



AX , SCO 1 
SM.MANU, AX 



/assign SCO 1 

/to smmanu 

SOS : noo /define location SOS 

/test for equality between KEYCHA and SC03 (lo-oit) 

/Dresuooose equality 
/fetch KEYCHA 
/comoare arguments 
/end routine if 

/not equal, ST01 = 0 

/ 1 oad value info 

/comoare to zero 
Zjumo to S09 if 



/assiqn S C 0 1 
/to SMAUTO 

/define location S 0 9 





no v 


STO 1 , 1 




no v 


AX , KEYCHA 




Cm o 


AX, SC03 




j z 


s + a 


true 




nov 


ST01 , 0 


/‘branch 


on false 






nov 


AL , ST 0 1 


acc umu 1 at or 




C m o 


AL, 0 




j z 


SO 9 


f a 1 se ( = 0 ) 


/‘assian 


value of 


one variabl 


(16 — bit) 




nov 


AX, SC01 




nov 


SMAUTO, A 


SO 9 / 


noo 




/assign 


value of 


one var i ao 1 


(16-bit) 




no v 


AX, SCO? 




nov 


MINTAC , A 


f 

/orocedure 3MMANU 




ssmmanu / 


n od 




SMMANU 



/assian S C 0 ? 
/to MI NT AC 



/entry ooint for 
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; detect condi t ion-tyoe input 


( 1 6 


-o i t ) 


i n 


ax, a 


J sense environmental data 


nov KFYCHA, AX 

/ 

procedure ^AMUAL 
SMANUAL: n do 


Gentry point for 


MANJAL 


;test if ACO not 


equal S C 0 2 


then 


STOl = 1 (16-oit) 


no v 


ST 0 1 , t 




J oresuoDose 


inequal i t y 


■no v 


AX , ACO 




/fetch ACO 


C nn o 


AX,SC02 




/'compare arguments 


j n e 


$ + a 




;end routine if 


true 


■no v 


STOl , 0 




Jequal , STOl = 0 


,' o r a n c h on false 


DO V 


AL , STO 1 




/'load value into 


accuDul at or 


cmo 


AL,0 




; coDDa re to zero 


j z 


SI 0 




/jump to 310 if 


f al se(=0) 


) as s i gn v a 1 je of 


one vari aol 


e to 


another variable 


(16-bit) 


DO V 


A X , SC 0 2 




lassign SC02 


no v 


POLL , AX 




?to POLL 


; send condition- 


t yOe out Dut 


(16- 


bit) 


do v 
out 

310: n od 


AX, POLL 
a, AX 


• 

/ 


i ssue coot rol 
Jdefine location S10 


; test if A C 1 not 


equa 1 SC02 


then 


STOl = 1 (16-bit) 


no v 


S T 0 1 , 1 




; presuPoose 


inequality 


no v 


AX, A C 1 




; f e t c h A C 1 


C m o 


A X , SC 0 2 




/compare arquments 


j ne 


$ + u 




;end routine if 


t rue 


no v 


ST 0 1 , 0 




; e q u a 1 , STOl = 0 


;oranch on false 


no v 


AL , STO 1 




;load value into 


accunul ator 


c no 


AL , 0 




; compare to zero 


j z 


SI 1 




) j UDD to 311 if 


f al se( = 0) 


Jassign value of 


one v a r i a b 1 


e to 


another variable 


(16-bit) 


no y 


AX , SCO 1 




Tassiqn SC01 


no v 


POLL, AX 




;to POLL 


;send condition- 


t yoe out out 


(16- 


bit) 


DOV 

out 

311: nop 


AX , POLL 
6, AX 


/ 


issue control 
tdefine location Sll 



9 [ 



? t e s t if AC? not 


eaual SC 0 2 


then 


ST 0 1 = 1 (16-bit) 


no v/ 


3 T 0 1 , 1 




; o resuppose 


i nequa 1 i t y 


no v 


AX , AC? 




r fetch AC? 


Z no 


AX,3C02 




; compare arguments 


j n e 


$ + q 




;end routine if 


true 


no v 


STO 1 , 0 




Jequal, ST01 = 0 


? oranc h on false 


no v/ 


AL, 3T01 




; 1 oad value into 


accumul at or 


CUD 


AL , 9 




; c om pare to zero 


j Z 


312 




;jumo to <512 if 


f al se(=0) 


; assign value of 


one v a r i a o 1 


e to 


another variaole 


(16-bit) 


no v 


AX, i»C 0 3 




lassiqn SC 0 3 


no v 


POLL , AX 




;to POLL 


; send condition- 


tyoe outout 


( 16- 


bit) 


no v 


AX, POLL 




issue control 


out 

512: n od 

; t e s t if A C 3 not 


8, AX 

equa 1 SC 02 


then 


tdefine location 312 
ST01 = 1 (16-bit) 


no v 


DT 0 1 , 1 




; oresuooose 


i neaual i t y 


no v 


AX, AC3 




; fetch AC3 


cmo 


AX, SC 02 




;compare arquments 


j ne 


i + 4 




;end routine if 


t rue 


no v 


S T 0 1 , 0 




i equa 1 $ 5) T 0 1 = 0 


; branch on false 


no v 


AL , STO 1 




; 1 oad value into 


a:c unu l at or 


cmo 


AL, 0 




; compare to zero 


j z 


313 




;jumo to <513 if 


f al se(=0) 


Jassiqn v a 1 je of 


one v a r i ao 1 


e to 


another variable 


( 1 6 - b i t ) 


mo v 


ax, scoa 




lassiqn 3 C 0 4 


no v 


POLL , AX 




;to POLL 


f send cond i t i on- 


tyoe outout 


( 16- 


bit) 


no V 


AX, POLL 


f 


i ssue control 


out 

513: nop 

; test if A C 4 not 


1 0, AX 

equal SC02 


then 


Jdefine location 313 
ST01 = 1 (16-oit) 


no v 


STO 1 , 1 




;oresubbose 


inequality 


no v 


AX, ACa 




; f e t c h A C a 


cmo 


AX , SCO? 




; compa re arquments 


j n e 


$ + 4 




;end routine if 



t rue 



92 



710 V 


3T0 1 , 0 


leaual f 5T01 = 0 


; branch on false 


71 0 V 


AL , 3 T 0 1 


; 1 oad value into 


accuTiul ator 


C 7) 0 


o 

-J 

<1 


Pcomoare to zero 


j 2 


319 


; j u m d to oil 4 if 


f al set =0 ) 


; a s s i qn value of 


one va r i ao 1 


e to another variaole 


(16-bit) 


no v 


A X , 3C 05 


/‘assign n)C OS 


n o v 


POLL, AX 


;to POLL 


; send eondi t i on- 


t yoe out out 


( 1 fe-b i t ) 


no V 


AX , POLL 


/’issue control 


out 


1 2, AX 




319: n OD 




rdefine location n) 1 4 


/‘test if AC5 not 


equa 1 3C 0 2 


then t)T 0 1 - 1 (lb-bit) 


no v 


3T01 , 1 


/’oresuPDOse 


inequality 


710 V 


AX , AC5 


; f e t c h A C 5 


C m D 


A X , 3C 0 2 


;co7ioare arguments 


j n e 


3 + 9 


;end routine if 


t rue 


710 V 


3 T 0 1 , 0 


; equa 1 , 3T0 1 = 0 


; o r anc h on false 


710 V 


A L , 3 T 0 1 


;load value into 


accuTiu 1 at or 


C 71 0 


AL, 0 


; compa re to zero 


j 2 


315 


/ j u 71 p to a) 1 5 if 


f a 1 s e ( = 0 ) 


.assign value of 


one variabl 


e to another variable 


(16-bit) 


71 0 V 


A X, 3C0 6 


; a s s i an JC 0 6 


710 V 


POLL, AX 


;to POLL 


; send condi t i do- 


t yoe outout 


( 1 b -b i t ) 


tiov 


AX, POLL 


; i ssue control 


out 


1 9, AX 




d 1 5 : n oo 




rdefine location oM S 


;test if ACS not 


eau a 1 3C 0 2 


then S r 0 1 = 1 (lb-bit) 


71 0 V 


3 T 0 1 , 1 


; o reSuDoose 


inequality 


710 V 


AX , AC6 


/fetch ACb 


C mo 


AX, 3C02 


;co7iDare arguments 


j n e 


3 + 9 


; end rout i ne if 


t rue 


710 V 


3 T 0 1 , 0 


leaual , 3T0 1 = 0 


; oranch on false 


710 V/ 


AL , 3T 0 1 


/’load value into 


accuTiul ator 


C 7)0 


AL , 0 


^compare to zero 


j 2 


316 


/jump to flilb if 


f al se(=0) 



93 



; assi gn value of 


one vari aol 


e to another variable 


( 1 6 - D i t ) 


710 V 


A X , 9C 0 7 


Jassiqn 3 C 0 7 


TO V 


POLL, AX 


J t o POLL 


J s e n d condi t i on- 


t yoe out out 


(lb-bit) 


TIOV 


AX , POLL 


? issue control 


ou t 


1 6, AX 




316: n OP 




:define location a) 1 6 


;test if A C 7 not 


equal 5> C 0 2 


then a) T 0 1 = 1 (16-bit) 


TO V 


9T 0 1 , 1 


J o re suooose 


i iequa 1 i t y 


TO V 


AX, AC7 


J fetch AC 7 


C TO 


AX, 9C0? 


JcoToare arguTents 


j n e 


% + a 


J end routine if 


t rue 


TO V 


a) T 0 1 , 0 


('equal , 9T0 1 = 0 


loranch on false 


TO V 


AL , 9T 0 1 


Jload value into 


accuTiu 1 at or 


CTO 


AL, 0 


JcoToare to zero 


j 2 


017 


JjUTD to 317 if 


f al se(=0) 


; assign value of 


one variable to another variable 


(16-bit ) 


TO V 


A X , 9C 0 8 


Jassiqn 9C08 


TO V 


POLL, AX 


;to POLL 


Jsend condition- 


tyoe cutout 


( 16-bi t ) 


710 V 


AX, POLL 


? issue control 


out 


1 8, AX 




a) 1 7 : n o o 




: be f i ne location 917 


Jtest if A C 9 not 


equal 9 C 0 2 


then 9 T 0 1 = 1 ( 16-oi t ) 


TO V 


5) T 0 1 , 1 


; oresuooose 


inequality 


TO V 


AX , AC0 


J fetch AC8 


CTO 


AX,9C02 


JcoToare arguTents 


j n e 


i + 4 


J end routine if 


true 


TO V 


t) T 0 1 , 0 


J eaua 1 9 3T 0 1 = 0 


J D ranc h on false 


TO V 


AL, 9T01 


} 1 oad value into 


accumu 1 at or 


CTO 


AL, 0 


J compare to zero 


j Z 


910 


JjuTp to 318 if 


f al se(sO) 


? assign value of 


one variaole to another variable 


( 16-bi t ) 


TO V 


A X , 9 C 0 9 


('assign tjC 0 9 


TO V 


POLL , AX 


;t0 POLL 


Jsend condi t i o n - 


tyoe out du t 


( 16-bi t ) 


TO V 


AX, POLL 


Jissue control 


out 


?0 , AX 





9a 



518: 


n dd 




:define location a) 1 B 


T t e s t i 


f 4C9 not 


equa 1 5C 0 2 


then a)T01 = 1 (16-bit) 




TIOV 


a T 0 1 , 1 


; o resuooose 


inequality 










710 V 


AX, AC9 


;fetch AC9 




C m o 


AX,5C02 


? comoa re ar guTients 




j n e 


$ + u 


;end routine if 


true 










TIO V 


AT 0 1 , 0 


; equal , T 0 1 = 0 


! oranch 


on false 








710 V 


AL, 5T01 


Moad value into 


accumu 1 at or 










C 71 0 


AL, 0 


; compare to zero 




j Z 


519 


fjumD to <519 if 


f a 1 s e ( = 0 ) 








T ass i gn 


value of 


one variaole to another variable 


( 16-bi t ) 










TIO V 


A X , 5C 1 0 


; ass i on <5C 1 0 




710 V 


PULL, AX 


;to POLL 


isend condition-tyoe outout 


( 16-bi t ) 




710 V 


AX, POLL 


Tissue control 




out 


22, AX 




519: 


n oo 




:define location 519 


; as s i gn 


value of 


one variable to another variable 


(16-bi t ) 










710 V 


AX, 5C02 


Tassiqn 5C02 




710 V 


SHMANU,AX ? t o smmanu 


9 

^procedure SMAUTO 






5SMAUT0 


: non 




Gentry ooint for 


S H A UTO 








T de t ec t 


condition 


-t yoe i nout 


(16-bit) 




i n 


AX , 5 


; sense environmental data 




710 V 


KEYCHA , AX 


9 

T orocedure AUTO 






3 A ij T 0 : 


noo 




lentry ooint for 


A JTO 








; a s s i g n 


value of 


one v a r i a o 1 


e to another variable 


( 1 6 -b i t ) 










710 v 


AX, 5C03 


lassign 5 C 0 3 




710 V 


MENU, AX 


Tto MENU 


isend condition-tyoe outout 


(16-bit) 




710 V 


AX, MEN'J 


Tissue control 




out 


2a, ax 




T detect 


condition 


-t yoe i nout 


(16-bi t ) 




i n 


AX, 6 


Tsense environmental oat a 




710 V 


KEYCHA , AX 


T t e s t for equality between KEYCHA and 5 C 0 2 (16- bit) 




710 V 


5 T 0 1 , 1 


Toresuooose equality 




710 V 


AX, KEYCHA 


T fetch KEYCHA 



95 







C TI O 




A X , 9C 0 2 


;connpare arguments 








J 2 




$ + 4 


; end routine if 




t rue 




no v 




9T01 , 0 


; not equa 1 , 3T 0 1 = 


0 


fdpanch 


on 


false 














no v 




AL, 3T0 1 


;1oad value into 




accumul ator 




C no 




AL, 0 


; c omoa r e to zero 








j 2 




520 


;juno to 32 0 if 




f a 1 se ( = 0 ) 














; assiin 


value of 


one variable 


to another variable 




( 16-bi t ) 




no v 




A X , 9C 0 1 


;assiqn 3C 0 1 








no v 




KEYINM, AX 


; t o KEYINM 




<520: 




n oo 






:define location 320 


; test for 


equality 


between KEYCHA and 3 C 0 1 (16 — oit) 








no v 




5T01,1 


?oresuDDose equality 






no v 




AX , KEYCHA 


? f e t c h KEYCHA 








C m 0 




A X , 9C 0 1 


Jcomoare araunents 








j 2 




$ + 4 


; end rout i ne if 




true 




no v 




5 T 0 1 , 0 


; not equa 1 , 3T 0 1 = 


0 


; orancH 


on 


false 














no v 




AL, 9T01 


; 1 oad value into 




a c c umu 1 ator 




c m o 




AL , 0 


Icomoare to zero 








j 2 




321 


fjumo to 321 if 




f a 1 se ( = 0 ) 














; a s s i q n 


v a 1 je of 


one variable 


to another variable 




(16-bit) 




no v 




A X , 9C 1 1 


Jassian i)C 1 1 








no v 




I 5TPE9, AX 


; to INTPER 




a)2 1 : 




n oo 






:define location 321 


; t e s t for 


equality 


between KEYCHA and 3 C 0 3 (16-oit) 








no v 




9 T 0 1 , 1 


?oresuDDose equality 






no v 




AX , KEYCHA 


; fetch KEYCHA 








c m o 




A X , 9C 0 3 


I’conoare arguments 








j 2 




>3 + 4 


lend routine if 




true 




no v 




9 T 0 1 , 0 


loot equal, 9T01 = 


0 


; branch 


on 


false 














no v 




AL , 9T 0 1 


;1oad value into 




accumulator 




cmo 




AL, 0 


Jcomoare to zero 








i 2 




922 


J j umo to 522 if 




false(=0) 














J a s s i gn 


value of 


one variable 


to another variable 




(16-bit) 




no v 




A X , 9C 1 2 


Jassiqn 5C12 








no v 




INTPE9, AX 


;to I NT PEP 




522: 




n oo 






idefine location 322 



96 



; test for equality between KEYCHA and 0 C 0 a (16-oit) 





710 V 


0TO 1 , 1 


loreSuDDose equality 




710 V/ 


AX , KEYCHA 


# fetch KEYCHA 




c m o 


AX,i)COa 


Jcomoare araunents 




j z 


S + a 


/ end routine if 


true 


710 V 


0TO 1 , 0 


/'not equal/ a) 1 0 1 = 0 


; oranc h 


on f a 1 se 








■no v 


A L , 0 T 0 1 


/load value into 


accumul ator 


c m o 


AL, 0 


? conpa re to zero 




j z 


025 


?ju7iD to 32 3 if 


f a 1 se ( -0 ) 








/'assign 


value of 


one variaole 


to another variaole 


fife — bit) 


no v 


A X , 0C 1 3 


; ass i qn niC 1 3 




no v 


IMTPER, AX 


; to IMTPER 


323: 


n oo 




:define location 323 


;test for equality between KEYCHA and 0CO5 (16-oit) 




no v 


0TO1 , 1 


/'oresuopose equality 




no v 


AX, KEYCHA 


/•fetch KEYCHA 




C 71 0 


A X , 0 C 0 5 


?co7ioare arguments 




j Z 


J t a 


lend routine if 


true 


no v 


0TO 1 , 0 


/'not equa 1 / 3T 0 1 = 0 


loranch 


on false 








no v 


A L , 0 T 0 1 


; load value into 


accumul ator 


C 71 0 


AL , 0 


/ compare to zero 




j z 


02 a 


/ j umo to 32 4 if 


f a 1 s e ( = 0 ) 








/assign 


value of 


one variable 


to another variaole 


( l 6 - b i t ) 


no v 


Ax,scia 


lassign 3 C 1 4 




no v 


IMTPER, AX 


;to IMTPER 


02a: 


n oo 




rdefine location 324 



Jtest for equality between KEYCHA and o) C 0 6 (lb-oit) 





no v 


3 T 0 1 , 1 


loresuooose equality 




no v 


AX , KEYCHA 


/•fetch KEYCHA 




C 71 0 


AX , 0CO6 


/’cofnoare araunents 




j Z 


5 + a 


lend routine if 


t rue 


; o r anc h 


no v 

on false 


o 

o 

re 


/ not eaual , 0TO 1 = 0 




no v 


Al,0TOl 


/load value into 


accumul ator 




C m o 


AL, 0 


/ compare to zero 




j z 


025 


/ j umo to 025 if 


f al se(=0) 


; ass i qn 


value of 


one variaole 


to another variaole 


C 16-bi t ) 
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-no y 


AX, 9C06 




lassign 3C 06 




710 V 


I MT PER, AX 




; t o INTPER 


925: 


n oo 






: d e f i n e location i) d 5 


; test for equality between K E T C H A 


and 3C 07 ( 1 6 - b i t ) 




710 V 


9 T 0 1 , 1 




JoresuoDose eouality 




710 y 


AV , KEYCHA 




; fetch KETCHA 




C m o 


AX , 9C0 7 




;co7ioare arauiients 




j Z 


$ + U 




t end routine if 


true 


710 V 


9 T 0 1 ,0 




; not equa If 3T 0 1 = 0 


; oranch 


on false 










Tio v 


AL , 9T0 1 




;load value into 


accumu 1 at or 


CmD 


AL, 0 




;comoare to zero 




j Z 


926 




fjumo to a)26 if 


f a 1 se ( =0 ) 










; as s i qn 


value of 


one variable 


t O 


another variable 


(16 — bit) 


710V 


A X , 9 C 0 1 




; ass i qn t) C 0 1 




71 0 V 


I\'T D ER,AX 




Ito INTPER 


3 2b : 


n do 






rdefine location 3 P 6 


; a s s i qn 


value of 


one variaole 


t O 


another variaole 


(lb-bit) 


710 V 


AX , CLOCK 




; a s s i g n CLOCK 




71 O V 


I M T T I vi, AX 




; to INTTIM 


; assi qn 


value of 


one variaole 


t 0 


another variaole 


(16 — bit) 


710 V 


A X , 9C 0 2 




; a s s i q n 3 C 0 2 




710 V 


SMA*JTO,AX 




; t 0 S ^ A U T 0 


; assi gn 


v a 1 je of 


one variable 


t 0 


anot her variable 


(16 — bit) 


710 V 


AX , 9C0 1 




; a s s i qn 3C 0 1 


• 


7>0 V 


T p OLL, AX 




; t o TPOLL 


f 

Procedure TPOLL 








9T POLL : 


noo 






r entry point for 


T^OLL 










? subt ract 1 6 - o i t 


CLOCK - IMTTIV = 


3 T 0 1 




710 V 


AX, CLOCK 




; fetch subtrahend 




suo 


AX,INTTI* 




rfecth and subtract 


minuend 


710 V 


9T01 , AX 




fStore answer in 3 T 0 1 


; t e s t if 


STOlgreater than INTPER 


then 3T 0 1 - 1 


( 1 6 - b i t ) 


710 V 


9 T 0 1 , 1 




fDresuooose arql > 


a rq2 


710 V 


AX, 9T01 




; fetch 3 T 0 1 




C Hfl 0 


AX , INTPER 




Jconnoare arguments 




i 9 


f + y 




Pend routine if 


true 


710 V 


o 

V. 

o 




? not > 9 3T 0 1 - 0 
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; oranc h on false 



71 0 V 


AL , 9T 0 1 




;load value into 


accuTiul ator 


cmo 


AL» 0 




r c omoa re to zero 


j z 


92 7 




? iufTID to o)<?7 if 


f a 1 se ( ~ 0 ) 


»' assign value of 


one variaole to 


another variable 


( 16-bi t ) 


710 V 


A X , 9C 0 1 




J ass i qn 9C0 1 


-nov T?OLL,AX 

92 7: n od 

• 

f 

lorocedure °OLLAU 
9P0LLAU: noo 




; t o TPOLL 

Jdefine location 927 
lent ry point for 


P DLL All 


;test if ACO not 


equal 9C 0 2 


then 


9 T 0 1 = 1 (16-bit) 


710 V 


9 T 0 1 , 1 




i presuppose 


inequal i t y 


710 V 


AX , ACO 




; f e t c h ACO 


Cm o 


ax , 9002 




; c omoa re arguments 


j ne 


$ + 4 




;end routine if 


true 


71 0 V 


9T0 1 , 0 




lequal , 9 T 0 1 = 0 


? oranch on false 


70V 


A L , 9 T 0 1 




?)oad value into 


accumul ator 


C mo 


AL, 0 




} c ompa re to zero 


j z 


928 




? j ufTiD to <928 if 


f a 1 se ( - 0 ) 


: a s s i g n value of 


one variaol 


e to 


another variable 


(16-bit) 


71 0 V 


A X , 9 C 0 2 




1 ass i gn 9C 02 


710 V 


POLL, AX 




;to POLL 


J send condi t i on- 


tyoe outout 


(16- 


bit) 


71 0 V 

out 

t)28 : n OD 


AX, POLL 
26, AX 


• 


issue control 
:define location 928 


;test if AC1 not 


equal 9C02 


then 


9 T 0 1 = 1 (16-nit) 


71 0 V 


9 T 0 1 , 1 




1 presuppose 


i o e g u a 1 i t y 


mo v 


AX , AC 1 




; f e t c h AC 1 


Cmo 


A X , 9C 0 2 




^compare arguments 


j n e 


$ + 4 




/’end routine if 


true 


710 V 


9T01 ,0 




/’equal / 9T01 = 0 


Joranch on false 


710 V 


AL , 9 T 0 1 




lload value into 


accumul at or 


cmo 


AL, 0 




1 compare to zero 


j z 


929 




Jjumo to 929 if 


f a l se ( = 0 ) 



99 



; a s s i 


an value of 


one v a r i a o 1 


e to another variable 


(16-bit) 




710 V 


AX,3C01 


lassiqn 3C0 1 




710 V 


POLL, AX 


/to POLL 


/send 


condition- 


tyoe output 


( 1 6-bi t ) 




TIO V 


AX , POLL 


? issue control 


529: 


out 

nop 


23, AX 


tdefine location 3 


.'test 


if AC 2 not 


e qua 1 3C 0 2 


then 3T01 = 1 (16-bit) 




710 V 


3T01 , 1 


; presuppose 


inequal i t y 




710 V 


AX , AC2 


;fetch AC<? 




C Tl 0 


A X , 9C 0 2 


Jcomoare arquTients 




j ne 


i + a 


; end routine if 


t rue 




710 V 


9T01 , 0 


/equal, 3T01 = 0 


/ oranch on false 

710 V 


AL , 3 T 0 1 


/load value into 


accumu 1 at or 




C 710 


AL , 0 


; c omoa re to zero 




j 2 


330 


; j u m d to cD 3 0 if 


f al se(=0) 


; assign value of 


one v a r i a 0 1 


e to another variable 


(16-bit ) 




710 V 


AX , 3C03 


(’assign 3C03 




Tl 0 V 


POLL , AX 


,'to POLL 


; send 


condi t i on- 


tyoe output 


(16-bit) 




710 V 


AX , POLL 


/issue control 


530 : 


out 

noo 


30, AX 


rdefine location 3 


; test 


if AC 3 not 


equal 3C02 


then 9 T 0 1 = 1 (16-bit) 




no V 


9T0 1 , 1 


/ presuppose 


i nequal i t y 




■no v 


AX, AC3 


? f e t c h AC 3 




C 71 0 


AX , 3C02 


;comoare arquuents 




j n e 


$ + 4 


;end routine if 


t rue 




710 V 


3 T 0 1 ,0 


/equal, 9T01 = 0 


loranch on false 

710 V 


AL,S)T01 


/load value into 


accumu 1 at or 




c mo 


AL, 0 


; c omoa re to zero 




j 2 


331 


fJUTlO to 3 1 if 


f al se(sO) 


/assign value of 


one va r i ab 1 


e to another variaole 


(16-bit) 




710 V 


AX , 3C04 


/assign o) C 0 4 




710 V 


POLL, AX 


/to POLL 


; send 


condi t i on* 


tyoe output 


( 1 6-bi t ) 




710 V 


AX , POLL 


/issue control 




out 


32, AX 





100 



331 : 




n od 






tdefine location a) 3 1 


/test 


i 


f AC 4 oo t 


equal 9C 0 2 


then a) T 0 1 - 1 (lb-oit) 






no V 


3T0t , 1 




? oresuooose 


i ^equal i t y 




nos/ 


AX , AC4 




;fetch A C 4 






cmo 


A X , 3C 0 2 




;comoare araunents 






j n 9 


f + q 




;end routine if 


t rue 




no v 


9T 0 1 , 0 




/ equa 1 / 5 T 0 1 = 0 


; oranch 


on false 












nos/ 


A L , 3 T 0 1 




/load value into 


accuTiul a t o r 




C n o 


AL,0 




J coTioare to zero 






j Z 


332 




/ j umo to <232 if 


f si se(=0) 












? a s s i q n 


v a 1 j e of 


one variaole 


to another variable 


( 16-bi t ) 




nos/ 


AX,9C05 




; ass i gn SC05 






nos/ 


POLL, AX 




;to POLL 


; send 


condition- 


t yoe out out 


( 1 6 - o i t ) 






no v 


AX, POLL 




; i ssue control 






out 


3^, AX 






33?: 




n od 






tdefine location 932 


/‘test 


1 


f AC 5 not 


equal 9C 02 


then 9 T 0 1 = 1 (16-bit) 






no s/ 


ST 0 1 , 1 




; oresupoose 


inequal i t y 




nos/ 


AX, ACS 




/fetch A C 5 






cmo 


AX , 3C02 




;comoare arguments 






j n e 


f + q 




?end routine if 


t rue 




no v 


ST 0 1 , 0 




/equal/ o) T 0 1 = 0 


/•branch 


on false 












nos/ 


AL/3T01 




;load value into 


a cc utiuI ator 




C n o 


AL, 0 




; comoa re to zero 






j Z 


933 




/jumo to 3 3 if 


f a 1 se ( -0 ) 












Jassiqn 


value of 


one variaole 


to another variaole 


( 1 6 - b i t ) 




no v 


AX, SCO 6 




^assign i)C 06 






no v 


POLL, AX 




?to POLL 


; send 


condition- 


tyoe outout 


( 1 6 - b i t ) 






no v 


A x , POLL 




Tissue control 






out 


36, AX 






3 33: 




noo 






tdefine location 333 


?fest 


i 


f A C 6 not 


equal 9 C 0 2 


then 3T01 = l (lb-bit) 






no v 


ST 0 1 , 1 




/•oresupoose 


inequality 




no v 


AX, AC6 




/•fetch AC6 






cmo 


AX , 3C 0 2 




Compare arquments 






j ne 


5 ♦ q 




Jend routine if 



true 



DO V 


a) T 0 1 , 0 




Jequal » 3T01 = 0 


/branch on false 


DO V 


A L , 3 T 0 1 




I load value into 


accumul ator 


c m o 


AL , 0 




/compare to zero 


j z 


534 




;jumo to a) 3 4 if 


f a 1 s e ( “ 0 ) 


; assign value of 


one variaol 


e to 


another variable 


(16-bit) 


TIO V 


AX, 3C07 




Jassiqn 3C07 


no v 


POLL, AX 




;to POLL 


; send condi t i on- 


t yoe out out 


(16- 


bit) 


no V 


AX, POLL 


/ 


issue control 


out 

a)34: noo 

; t e s t if AC7 not 


38, AX 

equal 3C02 


then 


rdefine location 334 
3 T 0 1 = 1 ( 1 6 -b i t ) 


no v 


3)T 0 1 , 1 




; or esuooose 


inequality 


no v 


AX , AC7 




/fetch AC7 


c n o 


A X , 3C 0 2 




,’comoare arguments 


j ne 


$ + 4 




end routine if 


true 


no v 


3 T 0 1 , 0 




Jequal, 3T01 = 0 


; oranc h on false 


no v 


AL, sro 1 




;ioad value into 


accumul ator 


c n o 


AL, 0 




/compare to zero 


j z 


3 35 




/jump to 335 if 


f al se(=0) 


/assign value of 


one variabl 


e to 


another variable 


(16-bit ) 


no v 


A X , 3C 0 8 




/•assign 3C 0 8 


no v 


POLL f AX 




/to POLL 


; send condition- 


type out d u t 


(16- 


bit) 


no v 


AX , POLL 


J 


issue control 


out 

? 55 : noo 

; test if 4C8 not 


40 , AX 

equa 1 3C 0 2 


then 


Jdefine location 335 
3 T 0 1 = 1 (16-oit) 


no v 


3 T 0 1 , 1 




; oresuooose 


i n e q u a 1 i t y 


no v 


AX , AC8 




; f et ch AC8 


c r no 


AX , 3C02 




/compare arguments 


j ne 


$ + 4 




/'end routine if 


t rue 


no v 


3 T 0 1 , 0 




; equa 1 / 3T 0 1 = 0 


; o ranc h on false 


no v 


AL , 3T0 1 




;load value into 


acc umu 1 at or 


c m o 


AL, 0 




('compare to zero 


j z 


336 




/jump to 536 if 



102 



f 3 l se ( = 0 ) 



^assign value of 


one variable to 


another variaole 


(16-bit) 


TO V 


AX, 5C09 


(’assign 5C09 


TO V 


POLL, AX 


;to POLL 


; send con ji t i on-tyoe outout (16* 


bit) 


TIOV 


AX, POLL 


i ssue control 


out 


a2, ax 




<536: odd 




rdefine location 53b 


; test if AC 9 not 


equal 5C 02 then 


5T01 = 1 (16-Dit) 


TIOV 


5T01 , 1 


P oresuODOse 


i o e a u a 1 i t y 


TO V 


AX , AC9 


? f e t c h A C 9 


CTO 


AX, 5C02 


/Compare arguments 


j n e 


$ + a 


; end rout i ne if 


true 


TO V 


5 T 0 1 ,0 


/ e q u a 1 # 3 T 0 1 * 0 


Joranch on false 


TO V 


AL , a)T0 1 


Moad value into 


accuTu 1 at or 


Cmo 


AL, 0 


P c omoa re to zero 


j T 


537 


Jjumo to 537 if 


f al se(=0) 


Passion value of 


one variable to 


another variable 


(16-bit) 


TO V 


A X , 5C 1 0 


; ass i qn 5C 1 0 


TO V 


POLL, AX 


Pto POLL 


; Send condi t i on-tyoe outout (16* 


bit) 


TO V 


AX, POLL ; 


issue control 


out 


aa, ax 




5)37 : hop 




:define location 537 


;assign valje of 


one variable to 


another variable 


( 16-bi t ) 


TO V 


AX, .5C0 2 


Passiqn 5 C 0 2 


TO V 

• 


T°0LL, AX 


Pto T POLL 


/ 

; orocedure MMSGDS 


5MMSGDS: odd 




;ent ry ooint for 


MMSGDS 


; d e t e c t condition 


-t yoe i nout ( 1 6 


- o i t ) 


i n 


AX, 7 /sense environmental data 


TO V 

• 


KEYCHA, AX 




9 

Jorocedure ^ISGDSP 


5MSGDSP: noo 




; entry point for 


MSGDSP 


; ass i qn value of 


one variable to 


anot her variable 


( 16 -bi t ) 


TO V 


AX , MSGO 


Passiqn MSGO 


TO V 


MSGVDT, AX 


Pto MSGVDT 



; send condi tion-tyoe outout ( 1 6 - b i t ) 
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to v AX, MSGVDT ; issue control 

out 46, AX 

; assign value of one variable to another variable 
(16-bit) 

tov AX,MSG1 Passion MSG1 

tov MSGVDT , AX ; to MSGVDT 

Psend condi t i on-t yoe outout (16-bit) 

tov Ax, MSGVDT Pissue control 

out as, AX 

Passion valje of one variable to another variable 
(16-bit) 

tov A X , M S G 2 Passign M S G 2 

tov MSGVDT, ax Pto MSGVDT 

; send condi t i on-t yoe outout (16-bit) 

tov AX, MSGVDT Pissue control 

out 50 , AX 

Passign value of one variable to another variable 
( 16-bi t ) 

tov A X , MSG 3 Passign MSG 3 

tov MSGVDT, AX Pto MSGVDT 

P send c on d i t i on - 1 y oe outout (16-bit) 

tov AX, MSGVDT Pissue control 

out 52 , AX 

Passign value of one variable to another variable 
( 16-bi t ) 

tov A X , M S G 4 Passign M S G 4 

tov MSGVDT, AX Pto MSGVDT 

P send condi t i on-tyoe outout (16-bit) 

tov AX, MSGVDT Pissue control 

out 5^ , A x 

Passion value of one variable to another variable 
( 1 6 - b i t ) 

tov AX,MSG5 Passign MSGS 

tov MSGVDT, AX Pto MSGVDT 

? send condi t i on-tyoe output (16-bit) 

tov AX, MSGVDT Pissue control 

out 56 , AX 

Passion value of one variable to another variaole 
(16-bit ) 

tov A X , M S G 6 Passign MSG 6 

tov MSGVDT, AX Pto MSGVDT 

P send condition-type output (16-bit) 

tov AX, MSGVDT Pissue control 

out 55 , AX 

Passion value of one variable to another variable 
(16-bit) 

tov AX,MSG7 Passign MSG7 

tov MSGVDT, AX Pto MSGVDT 

I send condi t i on-type output (16-bit) 

tov AX, MSGVDT Pissue control 

out 60, AX 



; a s s i gn value of 


one variaole 


t 0 


another variaole 


(16-bit) 








no v 


AX , MSG 8 




/assign MSG 8 


no v 


MSGVDT, AX 




;to MSGVDT 


? send condi t i on-tyoe outout (16- 


bit) 


no v 


AX , MSGVDT 




; issue control 


out 


62, AX 






Jassign value of 


one variable 


t o 


anot her variaole 


( 16-bi t ) 








no v 


A X , MSG9 




/‘assign M S G 9 


no v 


MSGVDT , AX 




;to MSGVDT 


?send condi ti on-tyoe outout (16- 


bit) 


Tt O V 


AX , MSGVDT 




f i ssue control 


out 


64 , A X 






;assign value of 


one variable 


t o 


another variaole 


(16-bit) 








TIO V 


AX , 5)C02 




; ass i qn a)C02 


■no v 


mmsGDS, AX 




;to MMSGDS 


/ 

procedure ML3CAT 








5ML0C AT : noo 






/‘entry point for 


MLOCAT 








;detect condition 


-t yoe inout 


( 1 6 


-bit) 


i n 


A X , 8 


sense environmental data 


no v 

• 


KEYCHA, AX 






Jorocedure LOCATI 








5L0CAT I : noo 






Gentry ooint for 


LDCATI 








/‘assign value of 


one variable 


t o 


another variable 


( 16-bit ) 








no v 


AX , a)C 0 4 




('assign a)C 04 


no v 


MENU, AX 




; t o menu 


/‘send condi t i on-tyoe outout (16- 


bit) 


no v 


AX, MENU 


• 

9 


issue control 


out 


66, AX 






; detect condition 


- t yoe i nDut 


( 1 6 


-bit) 


i n 


A X , 9 


sense environmental data 


no v 


KE YCHA , AX 






Jtest for equality between KEYCHA and <i)C02 (16-oit) 


no v 


•5)T 0 1 , 1 




loresuDoose equality 


no v 


AX , KEYCHA 




;fetch KEYCHA 


C n o 


AX, 3C02 




Jcomoare arguments 


j z 


S + 4 




; end routine if 


true 








no v 


3 T 0 1 , 0 




/ not equal/ 5T 0 1 = 0 


branch on false 








no v 


A L , 3 T 0 1 




;load value into 


accunul ator 








c no 


AL, 0 




; c ompa r e to zero 


j z 


388 




/jumo to 538 if 



fa 1 se( = 0) 



; a s s i q n 


value of 


one variaole 


to another 


variable 


(16-bit) 


7)0 V 


AX, SCO 1 


; ass i gn 


SCO 1 




7) O V 


KEY INM, AX 


; t o 


KEY IM^ 


5)38 : 


noo 




:def ine 


location 51 3 8 



; t e s t for equality between KEYCHA and 5 C 0 1 (16-oit) 







7)0 V 


5) T 0 1 , 1 




loresuDoose equality 






7)0 V 


AX , KEYCHA 




; fetch KEYCHA 






C m o 


AX, SC01 




IcoTipare arguments 






j z 


3 + 4 




? end routine if 


true 




7)0 V 


ST 0 1 , 0 




; not equal* 5T01 = 0 


; o r anc h 


on 


false 












7)0 v 


AL/ST01 




? 1 oad value into 


accuTiul ator 




C 7) 0 


AL , 0 




; C ompa r e to zero 






j z 


839 




* j u 7) o to 539 if 


f a 1 se ( = 0 ) 












? a s s i g n 


v a 1 je of 


one variaole 


t 0 


another variaole 


( 16-bi t ) 




7)0 V 


AX, SC 01 




; a s s i gn 5C 0 1 






770 V 


NE^POS, AX 




;to NErtPOS 


539 : 




noo 






Zdefine location 539 


/test for 


equality between KEYCHA 


and 5C 03 (16-oit) 






7)0 V 


ST01 , 1 




loresuppose equality 






7)0 V 


AX, KEYCHA 




; fetch KEYCHA 






C 71 3 


A X , SC 0 3 




;co7ipare arquTient s 






j Z 


5+4 




; end routine if 


t rue 




7)0 V 


ST 0 1 , 0 




; not equa 1 * 5T 0 1 - 0 


d r a n c h 


on 


false 












7)0 V 


AL , STO 1 




*load value into 


accumu 1 at or 




C 7) 0 


AL, 0 




; compare to zero 






j z 


84 0 




* j unrip to 540 if 


f al se(=0) 












, ass i qn 


value of 


one variable 


t 0 


another variable 


(16-bit) 




7)0 V 


AX, SCO? 




r'assiqn 5 C 0 2 






7)0 V 


MErtPOS, AX 




;to NEfcPOS 


; as s i gn 


value of 


one variaole 


t 0 


ano t her variable 


(16-bit) 




7)0 V 


A X , SC 0 1 




; ass i on 5C 0 1 






7)0 V 


TMLOC A, AX 




; t o T^ILOCA 


5)40 : 




noo 






rdefine location 540 


; ass i qn 


value of 


one variaole 


t 0 


another variable 


(16-bit) 




7)0 V 


AX , SCO? 




Jassiqn 5 C 0 2 






7)0 V 


MLOCAT , AX 




? t o M L OC A T 






1 06 



/procedure TMLOCA 

iTMLOCA: noo ient ry ooint for 

T MLOC A 

/detect c ondi t i on-t yoe inout (16-bit) 

in Ax, 10 ,‘sense environmental data 

mov KEYCHA,AX 



Procedure MANLOC 

3 w A N L 0 C : noo /entry point for 

MANLOC 

/detect condition-tyDe inout (16-bit) 





i n 


AX, 1 1 / 


sense envi 


ronment a 1 data 




TIO V 


MANPOS, AX 






/assign 


value of 


one variaole 


t o anot her 


variable 


(16-bit ) 











/assign 
(16-bit ) 



■nov 

mov 

value of 

mov 

•nov 



AX,MANP0S /assiqn MAN p 0S 

POSITI, AX ; t o POSIT I 

one variable to another variable 



AX,3C02 /assign 3C02 

TMLOCA, AX /to tmloca 



/orocedure MCLOCK 

3MCL0CK: noo /entry ooint for 

MCLOCK 

/detect condition-tyDe inout (16-bit) 

in AX, 12 /sense environmental data 

■nov KEYCHA, AX 



/orocedure CLOCKS 

^CLOCKS: noo /entry ooint for 

Clocks 



/assign value of 


one variable 


to another 


variable 


(16-bit) 








mov 


A X , T) C 0 5 


lassiqn 


d)C05 


mov 


MENU, AX 


/to MENU 



/send c on d i t i on- t y oe outout (16-bit) 

mov A X , M E N U /issue control 

out 60 , A X 

/detect condition-type i nout (16-bit) 

in AX, 13 /sense environmental 

mov KEYCHA, AX 

/assign value of one variaole to another variable 
( 16 -bit) 

mov AX»o)C02 /assian 3C02 

mov MCLOCK, AX /to MCLOCK 



data 



/procedure MLOGIN 

olMLOGI N : noo /entry ooint for 

MLOGIN 



/detect c ond i t i on- t yoe inout (16-bit) 
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in AX, 14 ? sense environmental data 

mov K£YCHA,AX 

7 

Jorocedure L03IN0 

3L0GIN0: non !ent py ooint for 

LDGINO 

Jassian value of one variable to another variable 
(16-bit) 





vo V 


Ax , SC06 


7 ass i an 3C 06 




710 V 


MENU, AX 


3 

LU 

O 

4-/ 




Jsend condition-type outout 


(16-bit) 




710 V 

out 


AX , MENU 
70, AX 


! issue control 




; detec t condi t i on- 


t yoe i nout 


( 16-bi t ) 




i n 


AX, 15 


Jsense environmental dat 




Tio v 


KEYCHA, AX 




; test for equality 


between KEYCHA end 3C02 (16-bit) 




710 V 


STOt , 1 


Jopesuooose equality 




710 V 


AX , KEYCHA 


fetch KEYCHA 




c m o 


AX , SCO? 


(Compare arquments 


t rue 


i z 


5 + 4 


; end routine if 




710 V 

Joranch on false 


ST 0 1 , 0 


J not eaual, 3 TO 1 = 0 


TIO V 

acc utiu 1 at or 


A L , a) T 0 1 


J 1 oad value into 




C 71 0 


AL, 0 


(Compare to zero 


f a 1 se ( 


J z 

= 0) 


<9«1 


J j U m D to 34 1 if 



J a s s i q n value of one variable to another variable 



(16-bit) 




710 V 


A X , SC 0 1 


Jassiqn 3 C 0 1 




710 V 


KEYINM, AX 


! t o KEYINM 


34 1 : 


n od 




Jdefine location 34 1 


J t e s t for 


equality 


between KEYCHA 


and SC 01 (16-oit) 




71 O 1/ 


3 TO 1 , 1 


loresuopose equality 




710 V 


AX , KEYCHA 


Jfetch KEYCHA 




c mo 


AX , SCO 1 


Jcomoare arguments 




j z 


5 + 4 


J end routine if 


true 


branch on 


710 V 

false 


ST 0 1 , 0 


Inot equal# 3 T 0 1 = 0 




710 V 


AL , ST 0 1 


;load value into 


accunfiul ator 




C m o 


AL, 0 


; c omoa re to zero 




j z 


34 


7 j u 7i o to 342 if 


f a 1 se ( = 0 ) 


; a s s i q n v a 


lue of one variable to 


another variable 


(16-bit ) 




710 V 


AX, SC01 


Jassiqn SCO 1 




710 V 


T LOG IN, AX 


Jto TLOGIN 



1 08 



392: 




nop 




:define location a) 9 2 


? t es t for 


equal i t y 


between KEYCHA and 3C03 (16-bit) 






no v 


3T01 , 1 


InresuDoose equality 






no v 


AX , KEYCHA 


; fetch KEYCHA 






C m o 


AX, 3C03 


/ c omoa r e arqunents 






j z 


$ + u 


; end rout i ne if 


true 




no v 


3T0 1 , 0 


/not equal, cDTOl = 0 


; o r anc h 


on 


false 










no v 


AL,3T01 


; 1 oad value into 


a:c umu 1 at or 




Cmo 


AL, 0 


/ comoa re to zero 






j z 


393 


/ j umo to 3^3 if 


f al se ( =0 ) 










; as s i gn 


valje of one variable 


to another variable 


( 16-bi t ) 




no v 


AX, 3C01 


; as s i qn a)C 0 1 






no v 


TLOGOU, AX 


; t o TLOGOU 


393: 




n od 




/define location o) 4 3 


; a s s i a n 


value of one variable 


to another variable 


(16-bit) 




no v 


A X , 3C 0 2 


/ ass i qn o)C 0 2 






no v 


MLOGIN, AX 


;to MLOGIN 


9 

; oroc edure 


TLDGIN 






3 T l OG I M 


: 


n oo 




Gentry ooint for 


T LOG I N 










? detect 


condition- 


tvoe i nout 


(16-bit) 






i n 


AX, 16 


?sense environmental data 






no v 


KEYCHA , AX 




9 

; o r oc edure 


LOGIN 






3L0GIN: 




noo 




/ ent ry point for 


LOGIN 










J ass i qn 


value of one variable 


to another variable 


( 1 b~b i t ) 




no v 


AX, 3C02 


; ass i qn n)C 02 






no v 


ACNHM, AX 


;to ACNUM 


Metect 


condi t ion- 


tyoe i nou t 


( 1 6 - b i t ) 






i n 


AX, 1 7 


/sense environmental data 






no v 


ACNdV, AX 




J t e s t for 


equality 


between NEXTAC and 3C02 (16-bit) 






no v 


3 T 0 1 , 1 


Joresupoose equality 






no v 


AX, NEXTAC 


/fetch NEXTAC 






C m o 


AX , 3C02 


/comoare arguments 






j z 


$ + 9 


/end routine if 


true 




no v 


3T01 ,0 


/not equa 1 , ST 0 1 = 0 


;test for 


equality 


between ACO and 3C02 (16-bit) 






no v 


3T02 , 1 


/presuppose equality 






no v 


AX, ACO 


/fetch ACO 



1 09 



AX,3C02 

$ + a 



; comoare araunents 
lend routine if 



c tio 

i 2 

t rue 

71 o v a)T02,0 ? not equal ^ 3T02 = 0 



^logical and. (16-bit) 3 T 0 1 .and* 3 T 0 2 = 3 T 0 1 







710 V 


A X , 3 T 0 1 










and 


AX,3T02 










710 V 


3T0 1 , AX 






7 o r anc h 


on false 












710 V 


AL, 3T01 




I 1 oad value into 


a:cumul ator 




C m o 


AL, 0 




/compare to zero 






j 2 


34 a 




; j umo to 5)44 if 


f al se (=0) 












; as s i qn 


value of one variable 


t 0 


another variable 


( 1 6 -b i t ) 




710 V 


A X , ACNUM 




; assign A C N U M 






710 V 


ACO, AX 




; t o aco 


344 : 




n od 






Jdefine location 344 


; t e s t 


for equality 


bet ween MEXT AC 


and 3C01 ( 1 b-o i t ) 






710 V 


3 T 0 1 , 1 




/DresuDoose equality 






710 V 


4X, NEXTAC 




7 fetch NEXTAC 






0 m o 


A X , 3C 0 1 




/comoare arguments 






j 2 


5 + 4 




/end routine if 


true 




710 V 


3 T 0 1 , 0 




/not equal, 3 T 0 1 = 0 


.’test 


for equality 


between A C 1 


and 3C 0 2 (16 -bit) 






710 V 


3 T 0 2 , 1 




/oresuDoose equality 






710 V 


AX, AC 1 


7 


fetch AC 1 






cmo 


AX , 3C02 




/comoare arguTients 






j 2 


5 + 4 




/end routine if 


true 




710 V 


3T02, 0 




/not equal, 3T02 = 0 


» logical 


1 

-0 

• 

T> 

C 

<D 


bit) 3T01 .and. 


3T02 = 7)101 






710 V 


A X , 3 T 0 1 










and 


A X , 3 T 0 2 










710 V 


3 T 0 1 , AX 






7 oranch 


on false 












710 V 


AL , 3T 0 1 




? 1 oad value into 


accumul ator 




C710 


AL, 0 




/compare to zero 






j 2 


345 




7 j ump to 34 5 if 


f a 1 se ( =0 ) 












; ass i gn 


value of one variable 


t 0 


another variable 


C 1 6 - b i t ) 




710 V 


AX , acnum 




/assign A C N U ^ 






710 V 


AC 1 , AX 




; t o ac l 


345: 




n od 






Jdefine location 345 


; t e s t 


for equal i t y 


between NEXTAC 


and 3 C 0 3 (lb-oit) 






710 V 


3 T 0 1 , 1 




/presuppose equality 






710 V 


Ax , NEXT AC 




; fetch NEXT AC 



true 



true 



c m o 


A X , 9C 0 3 


;conpare araunents 


j 2 


5 + a 


; end routine if 


no v 


O 

o 

ra 


? not equal/ 9T 0 1 = 0 


equal i t y 


Detween AC 2 


and dC 02 ( 16-bit ) 


no v 


DT02, 1 


loresupoose equality 


no v 


AX, AC2 


; f e t c h AC 2 


Z n d 


AX, 9C 0 2 


; c onD are arguments 


] 2 


$ + a 


; end routine if 


nos/ 


9 T 0 2 , 0 


} not equal/ a) T 0 2 = 0 



; 1 o g i c a 1 and, (16-bit) 9 T 0 1 .and, a) T 0 2 = 9 T 0 1 



branch on 


no v 
and 
no v 
false 
no v 


AX, 9T0 1 
A X , 9 T 0 2 

9T01 , AX 

A L , 9 T 0 1 


;load value into 


accu-nul ator 




C m o 


AL , 0 


J c onoa r e to zero 




) 2 


9a6 


/jump to 94 6 if 


f al se ( = 0 ) 


? assign v a 


1 je of one variable to 


anot her variable 


( 16-bi t ) 




no v 


AX, ACNU^ 


^assign A C N U ^ 




no v 


AC2, AX 


/to AC 2 


9 y 6 ! 


noo 




rdefine location 94 6 


? test for 


equal i t y 


bet ween NE X T AC 


and 9C04 (1 6-oi t ) 




no v 


9(01,1 


/oresuDoose equality 




no v 


AX, NEXT AC 


J fetch NtXTAC 




cmo 


AX, 9C0a 


Compare argunents 




i z 


s + y 


lend routine if 


t rue 




no v 


i) T 0 1 , 0 


/not equal/ a)T01 = 0 


1 test for 


equal i t y 


between AC3 and 9C02 (lb-bit) 




no v 


9 T 0 2 , 1 


loresuooose equality 




no v 


A X , A C 3 


fetch A C 3 




C n o 


AX , 9C02 


Jconoare argunents 




j Z 


Sty 


lend routine if 


t rue 




no v 


9 T 0 2 , 0 


/not equa 1 / 9T 02 = 0 


^logical and. (16- 


bit) 9T01 .and. 


a) T 0 2 = a) T 0 1 


; oranch on 


no v 
and 
no v 
false 
no v 


AX , 9T0 1 
A X , 9 T 0 2 
9T01 , AX 

AL , 9 TO 1 


/load value into 


accunul ator 




C n o 


AL, 0 


Jconoare to zero 




j 2 


9y7 


Jjunp to 94 7 if 


f al se(=0) 


Assign valje of one variable to 


another variaole 



(16 — bit) 



5)47 



no V 
no V 
noo 



AX,ACNUV1 ;assign ACNUM 

A C 3 / A X ;to AC 3 

:def ine location t)47 



true 



; test for equality oetween NEXTAC and >i) C 0 5 (16-oit) 

nov iTOlfl ?oresuooose equality 

nov AX/ NEXTAC /fetch NEXTAC 

cmo AX f a) COS Jcoinoare arquTients 

jz 5 + 4 lend routine if 

noy d)T01/0 l not eaual/ t)T01 = 0 

Itest for equality between AC4 and <DC02 (lb-bit) 



true 



no v 
no v 
C n o 
J z 

noy 



5T02/ 1 
AX / AC4 
AX / 5)C 02 
5 + 4 

a) T 0 2 / 0 



loresuooose equality 
; fetch AC 4 
Jconoare araunents 
lend routine if 

• not equa 1 / 5)T 02 = 0 



/ logical 


and. (16- 


bit) 9T0 1 .and. 


9 T02 = 9 T 0 1 


noy 

and 

noy 

loranch on false 


AX,9T01 
A X , 9 T 0 2 
9T01 , AX 






nov 


ALr 9T0 1 


/ 1 oad value into 


accunnul a t or 




CTO 


AL,0 


Jcomoare to zero 




j z 


948 


Jjuno to a) 4 8 if 


f al se(=0) 


1 assign value of one variaole to 


another variable 


( 1 6 - b i t ) 




nov 


AX , ACNlH 


/'assign ACNUM 




nov 


AC4 , AX 


? t o AC 4 


948 : 


noo 




:define location a) 4 8 


/test for 


equality 


be t ween MEX T AC 


and a)C 06 (16-oit) 




nov 


9T01 , t 


loresupoose equality 




nov 


AX, NEXTAC 


/•fetch NEXTAC 




C n o 


A X , 9C 0 b 


; c ono are argunents 




j Z 


$ + 4 


lend routine if 


true 




nov 


o 

o 

►— 


/not equal, 9T01 = 0 


/test for 


equality 


between AC5 and 9C02 (16-bit) 




nov 


9T02, 1 


loresupoose equality 




noy 


A X , A C 5 


fetch ACS 




C m o 


AX , 9C02 


Ico^oare araunents 




j Z 


$ + 4 


;end routine if 



t rue 



noy 3T02/0 

? 1 o q i c a 1 and, (lb-bit) iTOl 
noy AX/3T01 

and AX/a)T02 

nov iT01/AX 



Inot equa 1 / j)T 0? = 0 
and. a) T 02 = iiT01 



; o r anc h on false 









710 v 


A L , 5) T 0 1 


Moad value into 


accuTiul ator 






cm o 


AL , 0 


; c omoa re to zero 








i 2 


949 


; j UI71D to 349 if 


f al se(=0) 












Assign 


value of one v a r i a o 1 e 


to another variable 


( 16-bi t ) 






mo v 


AX , ACNUM 


; assign ACNUM 








710 V 


AC5, AX 


; to ACS 


5)46: 






n oo 




:define location <349 


; t e s t 


for 


equality 


between N E X T A C and 3 C 0 7 (16-oit) 








710 V 


5)T01 , 1 


Joresuooose equality 








710 V 


AX,NEXTAC 


? fetch NEXT AC 








Zmo 


AX , SCO 7 


; compare arguTients 








) 2 


$ + a 


? end routine if 


t rue 






710 V 


9 T 0 1 ,0 


Inot equal f 3101 = 0 


.'test 


for 


equal i tv 


between AC5 


and 3C 02 (16-bit) 








710 V 


9T02, 1 


loresupDose equality 








710 V 


AX , AC6 


; fetch AC6 








C m o 


AX , 9C 0 2 


; c omoa re arguments 








J 2 


sta 


; end routine if 


t rue 






710 V 


9T02, 0 


f not equal , 3 T 0 2 = 0 


? 1 og i c a 1 




and. (16- 


bit) 9 T 0 1 . and. 5)T02 = 5)T0 1 








710 V 


AX , 9T0 1 










and 


AX , 9T02 










710 V 


9 T 0 1 , A X 




; Dranc h 


on false 












710 V 


AL , ST 01 


? 1 oad value into 


accuTul ator 






C m o 


AL, 0 


;co7ioare to zero 








j 2 


950 


; j umo to 350 if 


f al se ( =0 ) 












; ass i qn 


valje of one variaole 


to another variable 


(16-bit) 






710 V 


AX, ACNJM 


; ass i qn ACNUV 








710 V 


A C 6 , AX 


; t o A C 6 


5)5 0 : 






n oo 




: define location 350 


> test 


for 


equal i t y 


between NEXTAC and 3C08 (16-oit) 








710 V 


i) T 0 1 , 1 


loresupDose equality 








710 V 


AX , NEXT AC 


J fetch NEXTAC 








Zmo 


AX, 9C08 


? compare arguments 








J 2 


$ + 4 


t end rout i ne if 


t rue 






710 V 


9T0 1 , 0 


; no t equa 1 , 3T0 1 = 0 


; t e s t 


for 


equality 


between AC 7 


and 3C 02 (lb-bit) 








710 V 


ST 02 , 1 


;oresuDoose equality 








710 V 


AX, AC7 


t f e t c h AC7 








zmo 


AX, 9C02 


;comoare arguTients 



J z 



$ + a 



true 



mo v 1102,0 

/logical and, (16-bit) S) T 0 1 



; end rout i ne if 

?not equal/ a) T 0 2 = 0 
and, 1102 - a) T 0 1 









no v 


A X , 3 T 0 1 












and 


AX, 3T02 












no v 


3T 0 1 , A X 






> o p a n c h 


on 


false 














no v 


AL, 3 T 0 1 




Moad value into 


accuTtul ator 






cmo 


AL, 0 




; compa re to zero 








i z 


351 




; j ump to 351 if 


f a 1 se ( = 0 ) 














Jassign 


value of one variable 


t o 


another variable 


(16-bit) 






no v 


AX, ACNUM 




; ass i gn ACNUM 








no v 


AC7 , AX 




; t o AC 7 


3 51 : 






n od 






:define location 351 


; t e s t 


for 


equal i t y 


bet ween NE X T AC 


and 3C 09 (lb-bit) 








no v 


a) T 0 1 , 1 




;oresuooose equality 








no v 


AX , NEXT AC 




; fetch NEXT AC 








C n o 


AX , 3C09 




; c ompa re araunents 








j z 


$ + 4 




; end rout i ne if 


t rue 






no s/ 


3 T 0 1 , 0 




/not equal/ 3T01 = 0 


;test 


for 


equality 


between AC 8 


and 3C02 (16-bit) 








no v 


3T02, 1 




loresuDoose equality 








no v 


A X , A C 8 


• 

9 


fetch AC 8 








cmo 


A X , 3C 0 2 




; c ompa re arguments 








j z 


$ + 4 




Jend routine if 


true 






no v 


3T 0 2 , 0 




/not equa 1 / 5) f 02 = 0 


> logical 


and. (16- 


bit) 3 T 0 1 .and. 


3T02 = 3T01 








no v 


A X , 3 T 0 1 












and 


AX, 3T02 












no v 


3T0 1 , AX 






; o r anc h 


on 


false 














no v 


ALf 3T01 




Moad value into 


accuTiul ator 






cmo 


AL, 0 




;comoare to zero 








J z 


352 




; juTio to 352 if 


f al se(=0) 














; ass i gn 


value of one variable 


t 0 


another variable 


( 16-bi t ) 






no v 


AX , ACNUM 




; ass i qn ACNUM 








no v 


AC8, AX 




;to AC8 


3 5 2 l 






n od 






:define location 352 


; test 


for 


equal i t y 


be t ween NE X T AC 


and 3 C 1 0 (16-bit) 








no v 


3 T 0 1 , 1 




;oresuDoose equality 








no v/ 


AX , NE X T AC 




/fetch NEXTAC 








Cmo 


A X , 3C 1 0 




Jcomoare arguments 





j z 


$ + 4 


; end routine if 


true 


T)OV 


•a to l , o 


> not eaua 1 , i)TO 1 = 0 


! test for equality 


between AC9 and a)C02 (16-bit) 




no v 


i)T02, 1 


?oresuDDose equality 




no V 


AX , AC9 


fetch A C 9 




C m 0 


AX , 3C02 


/comoare arqunents 




i z 


$ + 4 


; end routine if 


true 


mo v 


9T02, 0 


/ not equal f 7) T 0 2 = 0 


; logical 


and. ( 1 6- 


bit) ?T0 1 .and. 


i)T02 = t)T 0 1 




Tio y 


A X , 5 T 0 1 






and 


A X , r3 T 0 2 






no v 


T 0 1 , A X 




(’branch 


on f a 1 se 








no v 


AL f a) T 0 1 


? 1 oad value into 


accunnu 1 at or 


C n o 


AL,0 


/ compare to zero 




j Z 


-D53 


/jump to n)5 3 if 


f al se(=0) 








; ass i gn 


value of one variable to 


anot her variaole 


( 16-bit ) 


no v 


AX , ACNIH 


/assign ACNUM 




no v 


AC9 , AX 


; t o A C 9 


« 53: 


n oo 




: define location a) 53 


; add 1 6- 


bit NEXTAC 


+ -0CO1 = a) T 0 1 






no v 


AX , NEXT AC 


/fetch first 


a roune n t 


add 


A X » -ilC 0 1 


/add second argunent 


to first 


no v 


9T0 1 , AX 


/Store answer in a)T01 


J as s i gn 


value of one variable to 


another variaole 


(16-bit ) 


no v 


AX, ST01 


? assign a)T 0 1 




no v 


NEX TAC , AX 


;to NEXTAC 



;test for equality between NEXTAC and 9 C 1 4 ( 1 b • d i t ) 





no v 


3T0 1 , 1 


loresupoose eqjali 




no v 


AX, NEXTAC 


/fetch NEXTAC 




c no 


A X , (OC 1 4 


/compare arqunents 




j z 


$ + 4 


/ end routine if 


t rue 


/ branch 


no v 

on false 


n) T 0 1 ,0 


i not equal , 3T0 1 = 




no v 


AL , iT 0 1 


;load value into 


accunnu 1 at or 




c 71 o 


AL, 0 


/ comoa re to zero 




j Z 


<iS4 


/jump to t) 5 4 if 


f al se(=0) 


/assign 


value of 


one variaole 


to another variaole 


(16-bit) 



mo v 



A X , 3C0? 



?assiqn a)C 02 







no V 


NE X T AC , A X 


; t o NEXTAC 


5)54: 




n od 




:define location 5)54 


; as s i gn 


value of one v a r i a o 1 e 


to another variable 


( 1 6-0 i t ) 




mo V 


AX, 5)C02 


; ass i gn i)C02 


• 




■no v 


TLOGIN, AX 


;to TLOGIN 


9 

; orocedure 


TLOGOU 






9TL0G0U: 




n oo 




Jentry ooint for 


TlOGOU 










; det ec t 


condition- 


t yoe i nout 


(16-bit) 






i n 


AX, 18 


Jsense environmental data 






TIO V 


KEYCHA , AX 




9 

; orocedure 


LOGOUT 






5)L0G0U T : 




n oo 




; entry ooint for 


LOGOUT 










; ass i gn 


value of one variable 


to another variable 


C 1 6 - b i t ) 




mo v 


AX, 5)C02 


; a s s i gn 5)C 0 2 






mo v 


ACNUM, AX 


; t o ACNUM 


,* detect 


condition- 


tyoe inout 


(16-bit) 






i n 


AX, 19 


,'sense environmental data 






mo v 


A C MUM , AX 




; test for 


equality 


between ACO and ACNUM (16-bit) 






mo v 


i»T 0 1 , 1 


jDresuooose equality 






mo v 


AX, ACO 


) f et ch ACO 






C m o 


AX , ACNUM 


;comoare arguments 






J z 


$ + 4 


;end routine if 


true 




mo v 


i T 0 1 , 0 


«*not eaual, 5) T 0 1 = 0 


; or anc h 


on 


false 










mo v 


AL , 5) T 0 1 


J 1 oad value into 


a cc umu 1 a t or 




cmo 


AL, 0 


;comoare to zero 






j 2 


5)55 


» j umo to 5)55 if 


f al se(=0) 










; assign 


value of one variaole 


to another variable 


(16-bit) 




mo v 


AX, 5)C02 


;assiqn 5)C02 






mo v 


ACO, AX 


; t o ACO 


5)55: 




noo 




:define location 5) 55 


;test for 


equality 


between AC1 and ACNUM (16-oit) 






mo v 


a) T 0 1 , 1 


loresupoose equality 






mo v 


AX , AC 1 


; fetch AC1 






cmo 


AX , ACNUM 


; compare arguments 






j z 


$ + 4 


; e n d routine if 


t rue 




mo v 


5> T 0 1 , 0 


; not equa If a)T0 1 = 0 


branch 


on 


false 










mo v 


AL , 5) T 0 1 


? 1 oad value into 



a c c umu 1 ator 









C m 0 




AL, 0 


Icomnare to zero 








i 2 




356 


;jumo to (356 if 


f al se(=0) 














; assign 


value of 


one variaol 


e to another variable 


(16-bit) 






no v 




AX, 3C01 


/’assign 3 C 0 1 








•no v 




ACO , AX 


; t o aco 


356 : 






n od 






:define location 356 


; t e s t 


for 


e o u a 1 i t y 


between AC? and ACNUM (16-oit) 








■no v 




3 T 0 1 , 1 


loresuPDOse equality 








no v 




AX, AC2 


r fetch AC? 








cmo 




AX , ACNUM 


;conoare arguments 








j 2 




$ + a 


;end routine if 


t rue 






•no v 




3 T 0 1 , 0 


;not equal/ 3 T 0 1 = 0 


? or anc h 


on 


false 














no v 




AL, 3T01 


; 1 oad value into 


accumu 1 at or 






C n o 




AL, 0 


f compare to zero 








j z 




057 


/ j u m d to 357 if 


f a 1 s e ( r 0 ) 














; a s s i gn 


v a 1 je of 


one v a r i ab 1 


e to another variable 


( 1 6 - b i t ) 






no v 




AX, 3C05 


; as s i qn 3C 0 3 








no v 




ACO , AX 


;to aco 


35 7 : 






n od 






tdefine location 357 


jtest 


for 


equality 


between A C 3 and ACNUM (16-oit) 








no v 




3 T 0 1 , 1 


loresuoDose equality 








no v 




AX, AC5 


? f e t c h AC3 








C n o 




AX, ACNUM 


; compare arguments 








j 2 




$ + 4 


;end routine if 


t rue 






no v 




3T 0 1 ,0 


} not equal/ 3T 0 1 = 0 


; branch 


on 


false 














no v 




AL, 3T01 


Moad value into 


accuTtu! ator 






C n o 




AL, 0 


Jcomoare to zero 








J 2 




358 


/jump to 358 if 


f al se(=0) 














Assign 


v a 


1 ue of 


one variaol 


e to another variable 


(16-bit) 






no v 




AX , 3C04 


/‘assign 3 C 0 4 








no v 




ACO, AX 


; t o ACO 


>358 : 






n od 






tdefine location 358 


; t est 


for 


equal i t y 


oetween AC 4 and ACNUM (16-oit) 








no v 




3T01 , 1 


/Dresuopose equality 








no v 




AX , AC4 


; fetch A C 4 








z nn o 




AX , ACNUM 


; compare arguments 








j 2 




$♦4 


/ end routine if 



true 









TIO V 




9 T 0 1 , 0 


?not equal/ a) f 0 1 = 0 


; o r anc h 


on 


false 














71 O V 




AL/ 9T0 1 


J 1 oad value into 


accumul ator 






C 710 




AL / 0 


/•compare to zero 








j Z 




959 


/ j umo to n)S9 if 


f al se(=0) 














; assign 


value of 


one var i a ole 


to another variaole 


( 16-bi t ) 






710 V 




AX , 9C05 


^assign a) C 0 5 








71 O V 




ACO, AX 


? t o ACO 


959: 






n od 






idefine location a) S 9 


J test 


for 


equal i t v 


between AC5 


and ACNUM (16-oit) 








T) O V 




9T01 , 1 


;oresijpoose equality 








710 V 




AX , AC 5 


/fetch ACS 








C m o 




AX , ACNUM 


/•conpare arquTients 








j z 




$ + a 


; end rout i ne if 


t rue 






710 V 




9 T 0 1 , 0 


/not eQua 1 / a) T 0 1 = 0 


; o r anc h 


on 


f a 1 se 














710 V 




AL, 9T0 1 


? 1 oad value into 


accutiul ator 






C 710 




AL,0 


/'compare to zero 








j Z 




960 


/jump to a) t> 0 if 


f al se(=0) 














? assi gn 


value of 


one variaol e 


to another variable 


(16-bit) 






710 V 




AX , 9C06 


/‘assign t)C 06 








710 V 




ACO, AX 


; t o aco 


960 : 






HDD 






rdefine location <i)nO 


/test 


f 


o r 


equal i 


ty 


bet ween AC 5 


and ACNUM ( 16-bi t ) 








710 V 




9(01,1 


foresuopose equality 








710 V 




AX , AC6 


; f e t c h AC6 








C 71 0 




AX , AC MUM 


;comoare arguTients 








j Z 




? + 4 


; end routine if 


true 






710 V 




9 T 0 1 , 0 


/not equal / i>T 0 1 = 0 


; o r anc h 


on 


false 














710 V 




AL , 9 ( 0 1 


;load value into 


accumul at or 






C 71 0 




AL , 0 


/‘conoare to zero 








j Z 




961 


t j umo to a)6 1 if 


f al se(=0) 














/‘assign 


value of 


one vari aol e 


to another variable 


(16-bi t ) 






710 V 




AX , 9C07 


/•assign a)C 0 7 








710 V 




ACO, AX 


;to aco 


96 1 : 






n OD 






: d e * i n e location t) b 1 


/test 


for 


equal i t y 


between AC7 


and ACNUM (16-bit) 








710 V 




9 T 0 1 , 1 


/•presuppose equality 








710 V 




AX , AC7 


/fetch AC 7 





c m 0 




AX, ACNU^ 


Jconoare arguments 




j 2 




St '4 


;end routine if 


true 


no v 




5T01 , 0 


; not eaua 1 , a)T 0 1 = 0 


loranch 


on false 










nov 




A L , 9 T 0 1 


; 1 oad value into 


a c c u m u 1 ator 


cno 




AL, 0 


Jconoare to zero 




j z 




rjl6 2 


fjumo to a) 6 2 if 


f a 1 se ( -0 ) 










? ass i qn 


value of 


one variable 


to another variaole 


(16-bit) 


nov 




AX, 9C08 


; ass i qn t)C 08 




nov 




ACO , AX 


; t o ACO 


Db2: 


noD 






:define location a) b ? 


Jtest tor equality 


between AC 9 


and ACNUM ( 16-oi t ) 




nov 




9 r o i , i 


loresuDoose equality 




nov 




AX , AC8 


; f e t c h A C 8 




C m o 




AX , ACNUM 


; compare arguments 




j Z 




StU 


? end routine if 


t rue 


nov 




alTOl , 0 


Inot equal, t) T 0 1 - 0 


; 0 r anc h 


on false 










nov 




AL , 9 T 0 1 


; 1 oad value into 


accumul ator 


C mo 




AL, 0 


; compare to zero 




i z 




96 3 


J j umo to dfbi if 


f a i se ( = 0 ) 










; ass i gn 


value of 


one variable 


to another variaole 


(16-bit) 


no v 




AX, 9C09 


; ass i gn a)C 09 




nov 




A C 0 , A X 


;to ACO 


563: 


n od 






idefine location a) b 5 


/test tor equality 


bet ween AC9 


and ACNUM (16-oit) 




no v 




9T01 , 1 


iDresuDDose equality 




no v 




AX , AC9 


; fetch A C ^ 




C m o 




AX , ACNUM 


; compare arguments 




j z 




St4 


;end routine if 


t rue 


nov 




9T01 ,0 


Inot equal, i)T01 = 0 


; oranch 


on false 










nov 




A L , 9 T 0 1 


Moad value into 


accunul ator 


C mo 




AL, 0 


; compare to zero 




j z 




964 


? j u m p to <564 if 


false(=0) 










; a s s i q o 


value of 


one variaole 


to another variable 


( 1 6-o i t ) 


nov 




A X , 9C 1 0 


; a s s i qn i)C 1 0 




no v 




ACO, AX 


;to ACO 


56a : 


n oo 






: d e f i n e location a) b 4 



; a s s i g n value of one v a r i a o 1 e to another variable 
( 16 -bit) 

7)0 V 
71 O V 

9 

Procedure p OSCH 
t)POSCH; hod 

P DSC H 

/detect condi tion-tyoe i nout (lb-bit) 

in Ax, 30 /sense environmental data 

•nov NEGROS, AX 



/test for equality between NEa/POS and 5C01 (16-oit) 





7)0 V 


5 T 0 1 , 1 


;oresuDoose eguality 




7)0 V 


AX , NEWP9S 


Metch NE/iPOS 




c m 0 


AX , 2C0 1 


; c om oa r e arguments 




i z 


S + q 


; end routine if 


t rue 


7)0 V 


3 T 0 1 ,0 


/not equal, a) T 0 1 = 0 


; or anc h 


on false 








7)0 V 


AL,<t)T01 


9 1 oad value into 


a cc umu 1 ator 


C m o 


AL, 0 


;comoare to zero 




j Z 


a 65 


Jjump to 365 if 


f a 1 se ( = 0 ) 








; as s i gn 


value of 


one variable to 


another variable 


(16-bit) 


7)0 V 


AX, 9C01 


/ as s i qn 3C 0 1 




7)0 V 


POSCH, AX 


;to posch 


365 l 


n oo 




:define location 365 


9 

/procedure 3 0SUPD 






t)P0SUPD : 


noo 




Gentry ooint for 


P3SUP0 








/ detect 


condi t i 0 n 


•tyoe input (16- 


bit) 




i n 


AX, 21 Isense environmental dat 




7)0 V 


POSITI , AX 




/assign 


value of 


one variable to 


another variable 


(16-bit) 


710 V 


AX,t)C02 


/assign 3C02 


♦ 


7)0 V 


POSCH, AX 


/to POSCH 


9 

/ or oc edu r e HS3 I N 






3MSGIN: 


no o 




/entry ooint for 


MSGIN 








/detect 


condition 


-tyoe i nout (16- 


bit) 




i n 


AX, 22 /sense environmental dat 




no v 


MSGRE A , AX 




/test for equality between HS3REA 


and 3 C 0 1 (16-oit) 




7)0 V 


3 T 0 1 , 1 


/oresuooose eoualitv 




nov 


AX , HSGREA 


/fetch MSGREA 




C rn o 


A X , 3 C 0 1 


/compare arguments 



A X , t)C 0 2 
TLDGOU, AX 



/ ass i qn 3C 02 
/to T LOGOU 



/entry point for 



120 







j 2 


S + '-J 




;end routine if 


t rue 




■no v 


9T01 , 0 




? no t equals t)T01 = 0 


?oranch 


on false 












TIOV 


A L , 9 T 0 1 




;load value into 


accuTiul ator 




cno 


At, 0 




JcomDare to zero 






j z 


566 




? j u m o to 366 if 


f a 1 se ( = 0 ) 












? assign 


valje of one vari aol e 


t 0 


another variable 


( 16-bi t ) 




mo v 


Ax, 9C01 




; a s s i an 3C 0 1 






■no y 


MSG I N , AX 




I t o MSG IN 


966 J 




n dd 






:define location o 6 


/ 

procedure 4 S3 S TO 








5MSGST0 


: n oo 






lent ry ooint for 


MSGSTO 












/detect 


condi t ion- 


tyoe inout 


( 16- 


bit) 






i n 


AX , 23 


Jsense environmental dat 






■no y 


M E S S A G , AX 






; send 


condi t i Dn-t yoe outout (lb-bit) 






■no y 


AX , MSGRCV 




; issue control 






out 


72, AX 






; test 


for equality 


between NEXT^S 


and o)C02 (lb-oit) 






■no y 


5 T 0 1 , 1 




Inresupoose equality 






■no y 


A X , NE X T MS 




/‘fetch NEXTMS 






C m o 


A X , 9 C 0 2 




; compare arguments 






j z 


i + 4 




;end routine if 


true 




■no y 


9T0 1 , 0 




; not equa 1 / o)T0 1 = 0 


; oranch 


on false 












■no y 


AL , 5) T 0 1 




; 1 oad value into 


accunul ator 




C m 0 


AL , 0 




; cornoa re to zero 






j z 


i) 6 7 




?juno to a) 6 7 if 


f al se(=0) 












Jassiqn 


value of one variable 


t 0 


another va r i ao 1 e 


(16-bit) 




no v 


A X , MESS AG 




;assiqn MESSAG 






no v 


ACO , AX 




; t o aco 


9b7 t 




non 






rdefine location i) b 7 


/test 


for equality 


between MEXTMS 


and i) C 0 1 ( 1 6 - o i t ) 






no y 


■i) T 0 1 , 1 




f’Dresupoose eauality 






no y 


AX , NEX TMS 




/•fetch NEXTMS 






C no 


AX, 9C0 1 




;comoare arguments 






i z 


St a 




; e n d routine if 


true 




no y 


9 T 0 1 , 0 




; n o t equal/ n) T 0 1 = 0 


t oranch 


on false 












no y 


AL , 9T0 1 




? 1 oad value into 



accu'mj 1 at or 







C m o 




AL, 0 


J conoa re to zero 






J z 




568 


J j u n o to ib8 if 


f al se(=0) 












Assign 


value of 


one variable 


to another variaole 


( 1 6-bi t ) 




no V 




Ax, MESSAG 


; assign MESSAG 






TIO V 




AC 1 , AX 


/to A C 1 


568 : 




noo 






Idefine location a)b8 


; t est 


for equality 


between N E X T M S and i) C 0 3 (16-bit) 






no v 




STO l , 1 


loresuDpose equality 






no v 




AX, NEXTMS 


;fetch NEXTMS 






C n o 




A X , SC 0 3 


Jcomoare argunents 






i z 




t + a 


; end rout i ne if 


t rue 




no v 




ST 0 1 , 0 


J not equa 1 / 3T0 1 = 0 


; D r anc h 


on false 












no v 




al,stoi 


; 1 oad value into 


accumul ator 




C n o 




AL, 0 


Icofnoare to zero 






j z 




S69 


J j umo to <t) 69 if 


f al se(=0) 












;assign 


value of 


one variaole 


to another variable 


( 16-bi t ) 




no v 




AX , MESSAG 


/'assign MESSAG 






no v 




AC2, AX 


/to AC 2 


5)69 : 




ODD 






rdefine location a)b9 


; t e s t 


for e qu a 1 i t 


y 


between NEXTMS and iJC04 (16-oit) 






no v 




ST01 , 1 


loresuDoose equality 






no v 




AX,NEXTMS 


/•fetch N E X T M $ 






C m o 




A X , SC 0 9 


Jcomoare arguments 






j 7 




s + a 


Jend routine if 


true 




no v 




STO 1 , 0 


J no t equal / d) T 0 1 = 0 


; o r anc h 


on false 












no v 




AL , STO 1 


J 1 oad value into 


accunul ator 




CTIO 




AL, 0 


Jcomoare to zero 






j Z 




S70 


Jjumo to d) 7 0 if 


f al se(=0) 












; ass i gn 


value of 


one variaole 


to another variable 


( 1 6 - b i t ) 




no v 




AX, MESSAG 


Jassign MESSAG 






no v 




AC3, AX 


J t o AC 3 


57 0 : 




n do 






rdefine location a) 7 0 


; t e s t 


for equality 


between NEXTMS and 5 COS (16-oit) 






no v 




ST01 , 1 


Joresuooose equality 






no v 




AX,NEXTMS 


Jfetch NEXTMS 






C m o 




AX, SC05 


Jcomoare arqunents 






j z 




s + a 


Jend routine if 



t rue 







no V 




9 T 0 1 , 0 


not equal ^ i) T 0 1 = 


0 


» oranch 


on 


false 














710 V 




AL,9T01 


;load value into 




acc umu 1 at or 




C 7) 0 




AL, 0 


Jconoare to zero 








j z 




i) 7 1 


; j u n o to i) 7 1 if 




f al se(sO) 














; a s s i gn 


value of 


one variable 


t o anot her variaole 




(16 — bit) 




Tiov 




AX, MESS AG 


; assign MESS AH 








TlOV 




ACU , AX 


; t o a c a 




97 1 : 




n oo 






Idefine location a) 7 1 


; t e s t for 


equal i t y 


between ^EXTMS and t)C 06 (lb-oit) 








VO V 




t) T 0 1 , 1 


;oresuooose equality 






710 V 




AX, ^E X T MS 


; fetch NEXTMS 








cno 




AX,9C06 


;conoare arguments 








j Z 




$ + 4 


rend routine if 




t rue 




no v 




9T01 , 0 


; n o t equal r a) T 0 1 = 


0 


branch 


on 


false 














no v 




AL , 9 T 0 1 


? 1 oad value into 




accunnul ator 




C m o 




AL, 0 


; conoare to zero 








i z 




9 7 2 


rjumo to <? 7 2 if 




f al se(=0) 














1 assign 


value of 


one variaole 


to another variaole 




(16 — bit) 




no v 




AX, MESSAG 


lassiqn MESSAG 








no v 




A C 5 , AX 


; t o ACS 




-5)72: 




non 






: def i ne location n) 7 2 


) test for 


equal i t y 


between M E X T M S and n) C 0 7 (lb-oit) 








no v 




9T01 , 1 


;oresuDoose equal i 


t V 






no v 




AX, MEXTMS 


? fetch N E X 1 M S 








z vo 




A X , 9C 0 7 


rComoare arqun&nts 








j z 




$ + 4 


; e n d routine if 




t rue 




no v 




— i 

o 

o 


; no t equa 1 9 iTO 1 = 


0 


; o r anc h 


on 


false 














no v 




AL, 9701 


; 1 oad value into 




a:cunu 1 at or 




C n o 




A L , 0 


;conoare to zero 








j z 




973 


rjuno to a) 7 3 if 




f a 1 se ( = 0 ) 














! 3 s S i q n 


value of 


one variaole 


to another variable 




( 16-bi t ) 




no v 




AX, MESSAG 


?assi an MESSAG 








no v 




ACfe, AX 


; t o A C 6 




97 3 : 




n oo 






:define location j) 7 3 


Jtest f o 


r 


equality 


between NEXTMS and ^COB (lb-oit) 








no v 




9 T 0 1 , 1 


loresuDoose equality 






no v 




AX , NEXTMS 


? fetch NtXfMS 
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CTO 




A X , 9C 0 8 


^compare arquments 




j 2 




$ + q 


? e n d routine if 


true 


no v 




9T0 1 , 0 


; n o t equal ^ 5) T 0 1 = 0 


; oranch 


on false 










no v 




AL, 9T0 1 


; 1 oad value into 


a c c umu 1 ator 


C rn o 




AL, 0 


^‘compare to zero 




j 2 




5) 7 4 


?jump to 5) 74 if 


f a 1 se ( = 0 ) 










; assi gn 


value of 


one variable 


to another variable 


(16-bit) 


no v 




AX , MESSAG 


; a s s i q n MESSAG 




no v 




AC7, AX 


; t o AC 7 


5)74 : 


n o o 






rdefine location a) 74 


; t e s t for equality 


between NEXTMS and a)C09 (16-oit) 




no v 




5 T 0 1 , 1 


Joresupoose equality 




no v 




AX , NEXTMS 


; fetch NEXTMS 




c mo 




AX , 5C06 


;comoare argunents 




j 2 




$♦4 


Jend routine if 


t rue 


no v 




9T0 1 , 0 


?not equal f a) T 0 1 = 0 


; o r anc h 


on false 










no v 




AL, 9T01 


Moad value into 


a c c umu 1 ator 


C m o 




AL, 0 


; comoa re to zero 




j z 




975 


fjumo to 5)75 if 


f al se(=0) 










; a s s i q n 


value of 


one variable 


to another variaole 


(16-bit) 


no v 




AX , *ESSAG 


; assign MESSAG 




no v 




AC8, AX 


; t o ACS 


5)75: 


n oo 






:define location 5)75 


; test for equality 


between NEXTMS and 5 CIO (lb-oit) 




no v 




9T 0 1 , 1 


loresuooose equality 




no v 




AX, NEXTMS 


;fetch NEXTMS 




C mo 




AX,9C10 


Jcomoare arquments 




i 2 




$ + q 


lend routine if 


t rue 


no v 




9 T 0 1 , 0 


\ not equa 1 f 5) T 0 1 = 0 


; branch 


on false 










no v 




AL, a)T0 1 


Moad value into 


accunul ator 


C m o 




AL , 0 


f compare to zero 




j 2 




9 7 6 


fjumo to 5)76 if 


f al se(=0) 










; as s i qn 


value of 


one variable 


to another variable 


(16-bit) 


no v 




AX, MESSAG 


^assign MESSAG 




no v 




A C 9 , AX 


; t o A C 9 


576: 


n oo 






rdefine location 5)76 



;add 16-bit NtXTMS ♦ i)C01 = <3101 





710 V 


AX , NEX TMS 


/ fetch first 


arquTient 




add 


AX , i)CO 1 


Jadd second argument 


t 3 first 




TO V 


t) T 0 1 / A X 


/Store answer in x) T 0 1 


/assign 


v a 1 je of 


one vari act e 


to another variable 


(16-bit) 




7)0 V 


A X , a) T 0 1 


lassiqn iTOl 




TO v/ 


NEXT MS, AX 


; t o NEXTMS 



; test for equality between MEXTMS and <3C 1 4 (16-oit) 





TO V 


AT 0 1 , 1 


/oreSuDoose equality 




TO V 


AX , NEXTMS 


/fetch NEXTMS 




CTO 


AX,iCia 


/Comoare arquuents 




j z 


3 + a 


,end routine if 


true 




TO V 


a) T 0 1 , 0 


,not eoual, a> T 0 1 = 0 


; o r anc h 


on f a 1 


se 






TO v 


AL, 3T01 


/load value into 


accumu ) at or 




CTO 


AL , 0 


;comoare to zero 




j Z 


-077 


/juTo to <377 if 


f a 1 se ( = 0 ) 


; a s s i qn 


value 


of one variaole 


to another variable 


( 1 6 - b i t ) 




TO V 


AX, a)C02 


/assign i) C 0 2 




TO v 


NEXTMS, AX 


,*to NEXTMS 


S) 77: 


n oo 




:define location t)77 


? de f i ne 


8-bit 


data constant 




3C01 


e qu 


1 




; de f i ne 


8 -b i t 


data constant 




T1C02 


e qu 


0 




? de f i ne 


8 -b i t 


dat a const ant 




t)C 0 3 


e qu 


2 




; def i ne 


8-bit 


data const ant 




d)COa 


e qu 


3 




; de f i ne 


8-bit 


data const ant 




iC 0 5 


e qu 


a 




; de f i ne 


8 -b i t 


data const ant 




i)C 0 6 


equ 


5 




; de f i ne 


8 -b i t 


data const ant 




3C07 


equ 


6 




/define 


8-bit 


data const ant 




3C09 


equ 


7 




/define 


8-bit 


data constant 




9C09 


equ 


8 




/‘define 


8-bit 


data constant 




3C 1 0 


equ 


9 




/define 


8 -b i t 


data constant 




a)C 1 1 


equ 


30 




/define 


8-bit 


data constant 
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3C 1 2 e qu 20 

/define 8-bit data constant 
3C13 equ 15 

;define 8-bit data constant 
3C 1 4 equ 10 

?define 8-bit storaae 

orq 1023 ; 8 oit variable S T 0 1 

in ram 

3T01: do 0 



orq 986521 } rom address oointer 

/define 8-bit storage 





ora 


1023 


; 8 bit variable 3T 02 


i n ram 








iT02: 


do 0 






• 


orq 


98b52 1 


;rom address oointer 


/ 


m on i tor 


section 




/ 

3sd V s r : 


m ov 


AX , it so 1 e 


; i n i t a 1 i z e table 


d o i n t e r 


mo v 


Son t r t A X 


} to beainninq 


3 71 1 O D I 


m o v 


B X t Son t r 


;monitor looo 




i nc 


BX 






i nc 


B X 






i nc 


BX 






mo v 


iont r t BX 




• 

# 


j mo 


BX 





data section 



• 

/ 

Son t r : 


ora 

d * 


1023 

0 


; t ao 1 e 


entry 


address pointer 

orq 


986521 


;rom address oointer 


3 1 ab 1 e 


l d m 


-3d n t r 


Stable 


header 


(define too) 


j mo 


■it *EYINM 


; t e s t 


for 


Conti nqenc y 


KEYING 

j mo 


it M I NT AC 


; t e s t 


for 


cont i nqency 


MINT AC 

j mo 


it S^MAN'J 


Itest 


for 


conti nqencv 


SMMAN J 

j mo 


it SV1AUT0 


; t est 


for 


contingency 


smauto 

j mo 


it TPOLL 


;test 


for 


c on t i nqenc y 


TROLL 

j mo 


it ML0C A T 


; t es t 


for 


conti nqenc y 


MLOCAT 

j mo 


it TMLOCA 


; t e s t 


for 


conti ngenc v 


tmloca 

j mo 


itPOSCH 


;test 


for 
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. 







contingency P 0 S C H 





j 7)0 


i)t MMSGDS 


J test for 


contingency 


MMS3DS 








j no 


ilt MCLOCK 


; t e s t for 


cont ingency 


MCtOC< 








j n d 


iltMLOGIM 


? test for 


cont i nqenc v 


UL03IN 








j no 


alt f L OG I N 


; t e s t for 


contingency 


TLOGIM 








j no 


alt T10G0U 


; t es t for 


cont i naency 


TLOGO J 








j no 


alt MSGIM 


; test for 


contingency 


MSGIN 








j no 


alt MSG I M 


; t e s t for 


cont ingency 


"SGIN 








j no 


ilsovsr 


;go to start of 


table 








t 

SltKEYIN^: call 


<i)< E Y INM 


; e x ec u t e 


Conti nqency 


code < E V I N M 








CT1D 


KEYIN'*, 1 


; c onoa re 


Cont i ngency 


result to 












1 true flao (1) 




j nz 


$ + 5 


; i f false do not 


execute K3INPM 








call 


iKSINPV) 


; execute task 


K3INPM if true 






• 


j no 


i) m 1 oo 


; return to nonitor 


9 

i)t M INT4C: call 


^ I NT AC 


; execut e 


conti naenc y 


code MIvjTAC 








c no 


MINTAC, 1 


; c onnoa r e 


contingency 


result to 












9 t rue flag ( 1 ) 




j nz 


t ♦ S 


; i f false do not 


execute IMTAC 








call 


3INT AC 


lexecute task INTAC 


if true 










j TIO 


aim 1 oo 


Ireturn to nonitor 


/ 

dtSMMANU: cal 1 


a) S M w A N U 


('execute 


cont ingency 


code SMMANU 








c no 


S M M A MU f 1 


; conoare 


contingency 


result to 












; t rue flag ( 1 ) 




j nz 


$ + 5 


; i f false do not 


execute M ANU A L 








call 


i) M A N U A L 


('execute task 


MANUAL if true 






9 


j no 


ilrr 1 oo 


; ret urn to non i tor 
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it SMAUTO: 


call 


iS^ AUTO 


contingency code 


SMAUTO 






c mo 


SMAUTO, 1 


conti ngency resu 1 


t to 




execute AUTO 


j oz 


$ + 5 


if true 


call 


i A J T 0 




j mo 


im 1 oo 


/ 

it TPOLL: 


call 


iT D OLL 


conti ngenc v code 


T p DLL 






c mo 


T POLL , 1 


contingency resul 


t t 0 




execute POLLED 


j 


i ♦ 5 


POLL AU if true 


cal 1 


iPOLLAU 


• 


j mo 


ilml oo 


9 

3 1 M 10C A T : 


C a 1 1 


iMLOCAT 


contingency code 


ML3C A r 






c mo 


DC A T , 1 


conti ngency resul 


t to 




execute LOCATI 


j oz 


$ + 5 


L3CATI if true 


call 


iLJCATI 




j mo 


im 1 oo 


/ 

it TMLOCA : 


call 


i T ML DC A 


conti ngency code 


TMLOCA 






c mo 


TMLOCA, 1 


conti ngency resu 1 


t t 0 




execute MANIOC 


i 07 


$ t 5 


M ANLOC if true 


cal 1 


iMANLOC 




j mo 


inn 1 oo 


/ 

it POSCH: 


call 


iPOSCH 


contingency code 


S C H 






c mo 


POSCH, 1 


contingency resul 


t to 






j ->z 


$ + 5 



^execute 

; c omoa re 

f t rue flag ( 1 ) 
r if false do not 

^execute task AJTQ 

I return to monitor 

^execute 

; c omoa re 

;true flag (1) 

; i f false do not 

/execute task 

? return to monitor 

; execut e 

; c omoa r e 

/true flag (1) 

; i f false do not 

Execute task 

; return to monitor 

lexecute 

; comoa re 

Itrue flag (1) 

? i f false do not 

^'execute task 

; return to monitor 

Jexecute 

; comoa re 

?true flag (1) 

; i f false do not 



execute POSUPD 





call 


iPOSUPD 


^execute task 


PDSUPD i f t rue 










j TIO 


ini o o 


»’ return to Tion i t or 


/ 

MMSGDS : 


call 


3MMSGDS 


;execute 


conti na&ncy code 


MM3GDS 








CTID 


MMSGDS, 1 


; connoare 


contingency resul 


t to 




?true flag (1) 




j OZ 


S + 5 


; i f false do not 


execute MSGDSP 


call 


iMSGDSP 


/’execute task 


M S G D S P if true 








• 


j 71 O 


im 1 oo 


1 return to Tionitor 


/ 

JtMCLOCK : 


cal 1 


i^CLOCK 


? e x ec u t e 


contingency code 


MCLOCK 








cud 


MCLDCK, 1 


;co7oare 


conti nqency resul 


t to 




?true flag (1) 




j nz 


$ + 5 


; i f false do not 


execute CLOCKS 


call 


iCLOCKS 


;execute task 


CLOCKS if true 










j 710 


in 1 oo 


/’return to Tionitor 


t 

St MLOGINi: 


cal 1 


iMLOGIN 


9 exec u t e 


contingency code 


MLOGIN 








C 710 


MLDGIN, t 


; c OTioa re 


conti nqency resu 1 


t t o 




/true flag (1) 




j n z 


$ + 5 


; i f false do not 


execute L OG I NO 


call 


iLDGINO 


^execute task 


LOG I MO if true 








• 


j 710 


in 1 o o 


/return to Tionitor 


9 

a t T LOGIN: 


call 


ifLOGIM 


/•execute 


contingency code 


TLDGIN 








C 710 


TLDGIN, 1 


; c omoa r e 


contingency resul 


t to 




?true flag ( 1 ) 




j n z 


$ + 5 


; i f false do not 


execute LOGIN 


call 


iLOGIN 


lexecute tas* LOGIN 


if true 










j 710 


in ) OO 


; return to Tionitor 


/ 

it TLOGOU: 


call 


iTLOGO'J 


/’execute 


Contingency c ode 


TLOGOU 








C 7)0 


TLDGOU, 1 


; conoare 
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. 





c ont i nqency resul 


t t 0 




;true flap (1) 




i *>2 


l + 5 


; i f false do not 


execute LOGOUT 


call 


ilLOGOUT 


; execute task 


L OGOU J if true 










j no 


-Dm 1 o o 


Ireturn to non i t o r 


itMSGIN: 


call 


aMSGIM 


; execute 


contingency code 


MSGIN 








c no 


MSGIN, 1 


? c onoa re 


continaency resul 


t t 0 




1 true flag (1) 




j "12 


% * 5 


?if false do not 


execute MSGSTO 


call 


9MSGST0 


lexecute task 


M 3 G S T 0 if true 


j 71 o 


•Dm 1 oo 


? return to monitor 




end 




? software listinq 



c 1 e t e 



this realization consumes 71.180 watts of Dower 
and contains 16?. Chios. 



APPENDIX E 



NErtCSDl.FOP OUTPUT 
LISTING (HARDWARE) 



central orocessing unit 
device: i ntel 8086 'Tii croorocessor (rnax-^noderno 

n do ) , i c 1 

connect i ons: 

Dins 

1 6 , 1 5 , 1 4 , 13 / 1 2 , 1 1 , 10,9, 8, 7, 6, d, 4, 3, 2, 39, 38, 37 , 36, 35 = 
a(0: 19) 

Dins 16,15,14,13,12,11,10,9,8,7,6,5,^,3,2,39 = 

d(0: 15) 



d i n 


1 7 


( n ti i ) = gnd 


d i n 


1 8 


(intr) = gnd 


d i n 


19 


= dk 


o i n 


3a 


- ohe-bar 


D i n 


33 


( m n /ti a x -b a r ) = gnd 


D i n 


32 


(rd-bar) - n.c. 


D i n 


31 


( rq-bar/qt 0-bar ) - 


D i n 


30 


( r q-oa r/qt 1 -oar ) = 


o i n 


29 


(lock-bar) = n.c. 


d i n 


28 


- s 2 -b a r 


d i n 


27 


= s 1 -ba r 


o i n 


26 


= sO-bar 


o i n 


25 


( qs 0 ) = n.c. 


D i n 


2a 


( qs 1 ) - n.c. 


o l n 


23 


(test -ba r ) - gnd 


D i n 


22 


= ready 


d i n 


21 


= reset 


Dins 


1 , 


20 - qnd 


o i n 


ao 


- t 5 v 



clock generator (0,125 us 
device: intel 8284 clock gen and driver for 8 0 8 o 

c ou , i c 2 

c onnec t ions: 



d i n 


i 


(csyic) = qnd 




o i n 


3 


(aen 1-bar) = 


qnd 


o i n 


a 


( r dv 1 ) = + 5 v 




o i n 


5 


(ready ) = re adv 


D i n 


6 


( r dy2 ) - gnd 




o i n 


7 


( a9n2-bar ) = 


and 


o i n 


8 


= c 1 < 




o i n 


10 


= reset 




o i n 


1 1 


= r es-ba r 




o i n 


1 3 


( f/:*bar) = 


gnd 


o i n 


l a 


( e f i ) = qnd 




D i n 


15 


(async-bar) 


= + 5 v 


oi ns 


Id, 17 (xtal(l: 


2) ) = 



device: 24 mh z crystal 



oins 9 = gnd 
oi n 18 - + 5 v 

octal Dus t r ansc e i ve r /da t a 



bits 0:7 



a. 

a> 

< 


c e : 


i nt si 


8? 86 octal 


Ous 


transceiver. 


connections: 








oins 19,18»17 


,16,15,19, 


13,12 


(do ( 0 : 7 ) ) = 


o i n 


i 


(a0) = 


d ( 0 ) 






o i n 


2 


Cal) = 


d ( 1 ) 






o i n 


3 


( a 2 ) = 


d ( 2 ) 






o i n 


<4 


( a 3 ) = 


d ( 3 ) 






o i n 


5 


(a9) = 


d ( 9 ) 






o i n 


6 


( a5 ) = 


d ( 5 ) 






o i n 


7 


( a 6 ) = 


d ( 6 ) 






o i n 


8 


( a 7 ) = 


d( 7) 






o i n 


9 


( oe-oa r 


) = . not . 


den 




o i n 


1 1 


(t ) = 


dt /r-oar 






o i n 


10 


- qnd 








o i n 


20 


= + 5 v 








octal 


ous transceiver/data bits 8:15 


dev i 


c e : 


i nt sl 


82 86 octal 


ous 


transceiver# 



i c 3 

do ( 0 : 7 ) 



connections 



oins 


19, 18, 17 


,16,15,19,13,1 


o i n 


1 


( aO ) = 


d ( 0 ) 


o i n 


2 


(al ) - 


dll) 


o i n 


3 


(a2) = 


d ( 2 ) 


o i n 


9 


( a 3 ) = 


d ( 3 ) 


o i n 


5 


( a 9 ) = 


d ( 9 ) 


o i n 


6 


Ca5) = 


d ( 5 ) 


o i n 


7 


( a 6 ) - 


d ( 6 ) 


o i n 


8 


( a 7 ) = 


d ( 7 ) 


o i n 


9 


(oe-oa r 


) = .not. den 


o i n 


1 1 


(t ) = 


dt/r-bar 


o i n 


10 


= gnd 




o i n 


20 


= + 5 v 





i c9 



( db ( 0 : 7 ) ) = do ( b : 15) 



ous controller 
dev ice: i nt e 1 



8288 ous controller for 8086 cou, icS 



c o n n e 


c t i ons : 


o i n 


19 


- s0-bar 


o i n 


3 


= sl -bar 


o i n 


1 8 


= s2-bar 


o i n 


2 


= elk 


o i n 


5 


= ale 


o i n 


16 


= den 


o i n 


9 


= dt / r-bar 


o i n 


6 


( ae-oar ) = 


o i n 


1 


( i ob ) = 1 5 v 


o i n 


7 


- Tir jc-bar 


o i n 


9 


= Tiwtc-bar 


o i n 


1 1 


- i Dwc-bar 


o i n 


1 3 


= i o rc -ba r 


o i n 


19 


= i nt a-bar 



and 



1 3? 



0 i n 15 (:ei) = + 5 v 
oi n 10 = and 

oin 20 - + 5 v 

octal 1 a t c h / add r es s oits 0:7 
device: intel *282 octal latch for 808o cou, 

connec t i ons : 

01 ns 1,2, 3, 4, 5, 6*7, 8 (di (0:7)) = a ( 0 : 7 ) 

oins 19, 18, 1 7, 16, 15, la, 1 3, 1? (do(0:7) = a(0: 
oin 9 (oe-oar) = qnd 

oin 11 (sto) - ale 
oin 10 - qnd 
oin 20 = + 5 v 

octal 1 a t c h / add r e s s oits 8:15 
device: intel 8282 octal latch for 8086 cou, 

connections: 

oins 1,2, 3, a, 5, 6, 7, 8 ( d i (0:7)) = a ( 8 : 1 5 ) 

oins 19, t8, 17, 16, 15, 14, 13, 12 (do(0:7)) = a(8 

oin 9 (oe-oar) = and 

oin 11 (sto) = ale 

oin 10 - qnd 

oin 20 = ♦ 5 v 

octal latch/address oits 1 1 > : 1 9 
device: intel 8282 octal latch for 808b cou, 

connections: 

oins l , 2 , 3 , 9 (di(0:3)) = a(16:19) 

oins 19,18,17,16 ( do ( 0 : 3 ) = a(lo:19) 

oins 5,6, 7,8 (di (3:7)) = qnd 

oin 9 (oe-oar) = and 

oin 11 (sto) - ale 

oin 10 = qnd 

oin 20 = f 5v 

address decoder/address for nenory select 
device: intel 8<?05 l-of-8 binary decoder, ic9 

connect ions: 



o i n 


IS 


( o ( 0 ) ) = csu-oar(l) 


o i n 


1 a 


(o( 1 ) ) = c s u-oa r ( 2 ) 


o i n 


l 3 


( o ( 2 ) ) = c su-oa r ( 3 ) 


o i n 


12 


( o ( 3 ) ) = csj*&ar(i|) 


o i n 


1 1 


( o ( 4 ) ) = c su-oa r ( 5 ) 


o i n 


10 


C o ( 5 ) ) = c su-ba r ( 6 ) 


o i n 


9 


( o ( 6 ) ) =■ c su-oa r ( 7 ) 


o i n 


7 


(0(7)9 = csu-D3r(B) 


o i n 


1 


= a( IS) 


o i n 


2 


= 3(16) 


o i n 


3 


= 3(17) 


o i n 


a 


( e 1 - oa r ) - a(0) 


o i n 


s 


( e2-oar ) = a(13) 


o i n 


6 


(e3) = .not. a(l9) 


o i n 


8 


= on d 


o i n 


16 


= + 5 v 



address decoder/ address for nenory select 



1 33 



i c 6 
7) 

i c 7 
: 1 5 ) 

i c 8 



device: i n t e 1 8205 1 - o f - 8 binary decoder, iclO 

connections: 



o i n 


15 


(o( 0) ) 


= csj-oar( Q ) 


o i n 


14 


(5(D) 


- c sj-ba r ( 1 0 ) 


o i n 


1 3 


(o(2) ) 


= csu-bar(ll) 


o i n 


12 


(o(3)) 


= csu-oar( 12) 


o i n 


1 1 


(o(4) ) 


= csu-bar(li) 


o i n 


1 0 


( o ( 5 ) ) 


= csu-bar ( 14) 


r> i n 


9 


(o(6)) = 


c su-bar (15) 


o i n 


7 


(o(7)) = 


c su-ba r ( 16) 


o i n 


1 


= 3(15) 




o i n 


2 


= 3(16) 




o i n 


S 


= 3(17) 




o i n 


4 


(el -oar) 


= a ( 0 ) 


o i n 


5 


( e 2-oa r ) 


= a ( 1 9 ) 


o i n 


b 


( e 3 ) = a ( 1 8) 


o i n 


8 


= gn d 




o i n 


1 6 


= + 5 v 





address decoder/address for memory select 
device: inte) 8205 1 - o f - 8 binary decoder^ icl 1 

connections: 



0 i n 


15 


( o ( 0 ) ) 


- csu-bar (17) 


d i n 


1 4 


(0(1 )) 


= csu-oar( 18) 


o i n 


1 3 


( o ( 2 ) ) 


- csu-bar(19) 


o i n 


12 


( o ( 3 ) ) 


= c su-oar ( 20 ) 


D i n 


1 1 


( o ( 4 ) ) 


= csu-oar (21 ) 


0 i n 


1 0 


( o ( 5 ) ) 


= csu-bar(22) 


o i n 


9 


( o ( 6 ) ) = 


csu-bar(23) 


D i n 


7 


( o ( 7 ) ) = 


c su-ba r ( 24 ) 


o i n 


1 


= 3(15) 




o i n 


2 


= 3(16) 




o i n 


3 


= 3(17) 




o i n 


4 


( e 1 - oa r ) 


= a ( 0 ) 


p i n 


5 


(e2-oa r ) 


= a ( 1 8) 


o i n 


t> 


( e 3 ) = a( 19) 


o i n 


8 


= gn d 




o i n 


1 6 


= + 5 v 





address decoder/address for memory select 
device: intel 8205 1 - o f - 8 binary decoder, icl2 

connect ions: 



p i n 


15 


( o ( 0 ) ) 


= csu-oar(25) 


o i n 


14 


(0(1)) 


- csu-oar(26) 


o i n 


13 


(o(2) ) 


- csu-oar(27) 


o i n 


12 


(o(3)) 


= csu-oar(28) 


o i n 


1 1 


(o(4) ) 


- csu-oar ( 29 ) 


p i n 


1 0 


(o(5) ) 


= csu-oar(30) 


d i n 


9 


( o ( 6 ) ) = 


csu-bar(31) 


o i n 


7 


(o(7)) = 


csu-bar(32) 


o i n 


1 


= 3(15) 




o i n 


2 


= 3(16) 




o i n 


3 


= 3(17) 
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o i n 


a 


(el-oar) = a(0) 




o i n 


5 


(e2-oar) = a(18) 




o i n 


6 


(e3) = .not . a ( 1 9 ) 




o i n 


8 


= gn d 




o i n 


16 


= + 5 v 




address 


decoder/addr ess for Tienory 


select 


device: 


intel 8205 l-of-8 binary 


decoder 


connect ions: 




o i n 


15 


(o(0) ) = csl -bar ( 1 ) 




o i n 


ia 


( o ( 1 ) ) = c s 1 -Da r ( 2 ) 




o i n 


1 5 


( o ( 2 ) ) = c s 1 -Da r ( 3 ) 




p i n 


12 


( o ( 3 ) ) = c s 1 -Da r ( 4 ) 




o i n 


1 1 


( o ( 4 ) ) = csl-Dar(S) 




o i n 


1 0 


( o ( 5 ) ) = c s 1 -Da r ( 6 ) 




o i n 


9 


( o ( 6 ) ) = csl-bar(7) 




o i n 


7 


(o(7)) = csl-bar(8) 




o i n 


1 


= 3(15) 




o i n 


2 


= a( 16) 




o i n 


5 


= 3(17) 




o i n 


a 


(el-oar) = bhe-bar 




o i n 


5 


( e2-oar ) = a ( 1 8 ) 




o i n 


6 


( e 3 ) = .not. a ( 1 9 ) 




o i n 


8 


- gn d 




o i n 


16 


= + 5 v 





address decoder/address for Tienory select 
device: i n t e 1 8205 l-of-8 binary decoder ^ i c 1 ; 4 



connect 


ions: 




o i n 


15 


( o ( 0 ) ) 


= c s 1 -Da r ( 9 ) 


o i n 


l a 


(o( 1 ) ) 


= csl-bar(lO) 


o i n 


13 


(o( 2) ) 


= c s 1 -ba r ( l 1 ) 


o i n 


12 


(o( 3) ) 


= c s 1 -ba r ( l ? ) 


o i n 


1 1 


(o(a)) 


= c s 1 -ba r ( 1 3 ) 


o i n 


10 


( o ( 5 ) ) 


= csl-oar(ia) 


o i n 


9 


(o(6) ) = 


csl -bar( 1 5) 


P i n 


7 


(0(7) ) = 


csl -Da r ( 16) 


o i n 


1 


= 3(15) 




o i n 


2 


= 3(16) 




o i n 


3 


= 3(17) 




D i n 


a 


(el-oar) 


= bhe-bar 


p i n 


5 


( e 2-oa r ) 


= a( 1 9) 


o i n 


6 


( e 3 ) = a ( 1 8 ) 


o i n 


8 


= gnd 




o i n 


16 


" + 5 v 





address decoder/addr ess for memory select 
device: intel 8205 l-of-8 binary decoder# icl5 

c onnec t ions: 



o i n 


15 


( o ( 0 ) ) 


= 


c s 1 -ba r ( 1 7 ) 


o i n 


l a 


(o( 1 ) ) 


s 


c s 1 -oa r ( 1 8 ) 


P i n 


1 3 


(o(2) ) 


r 


c s 1 -ba r ( 1 9 ) 


o i n 


12 


(o(3) ) 


- 


csl-oar(20) 


o i n 


1 1 


(o(4)) 


r 


c s 1 -ba r ( 2 1 ) 
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- 




p i n 


1 0 


( a ( o ) ) = csl-oar(22) 


d i n 


9 


(o(6) ) = csl -bar (23) 


d i n 


7 


(o(7)) = c s 1 -ba r ( 29 ) 


o i n 


1 


= a ( 1 5 ) 


o l n 


2 


= a ( 1 6 ) 


o i n 


3 


= a ( 1 7 ) 


o i n 


9 


(el-oar) = bhe-bar 


P i n 


5 


(e2-oar) = a(18) 


o i n 


6 


( e 3 ) = a( 19) 


o i n 


8 


= qnd 


o i n 


16 


= + 5 v 



address decoder/address for memorv select 
device: intel 8205 1 - o f - 8 binary decoder, iclb 

connections: 



p i n 


15 


( o ( 0 ) ) = csl 


-oar (25) 


o i n 


1 9 


( o( 1 ) ) = csl 


-oa r ( 26 ) 


o i n 


13 


( o ( 2 ) ) = csl 


-oar ( 27 ) 


o i n 


12 


( o ( 3 ) ) = csl 


-oar ( 28 ) 


P i n 


1 1 


( O ( 9 ) ) r csl 


-oar (29) 


o i n 


1 0 


( o ( 5 ) ) = csl 


-oar (30) 


o i n 


Q 


( o ( 6 ) ) = csl - 


bar (31 ) 


o i n 


7 


(o(7) ) = csl - 


ba r ( 32 ) 


o i n 


1 


= a ( 1 5 ) 




d i n 


2 


= a( 16) 




o l n 


3 


= 3(17) 




o i n 


9 


(el-oar) = bhe-bar 


o i n 


5 


(e2-oar) = a(18) 


o i n 


6 


( e 3 ) = . no t . 


a( 19) 


d i n 


8 


- ini 




o i n 


1 6 


- + 5 v 





condition node incut interface hardware to sense 
s i ana 1 Kf; YFLG 

device: intel 8212 8 bit i / o oort,ic 17 
connect ions: 

oins 3,5,7,9,16, 18, 20, 22(di (1:81) = K E Y FLG ( 1 : 8 ) 
remainder to 

around 

oins 9, 6, 8, 10, 15, 17, 19, 21( do (1:8)) = db(l:8) 
oin 2 ( m d ) = and 

oin 11 (sto) = qnd 

oin 1 (dsl-bar) = .not. (decode a(0:7) value 0) 
oin 13 (ds2) = i no .and. doin 

oin 29 = + 5 v 
oin 12 = and 

condition node i nout interface hardware to sense 
s i ana 1 KE YFLG 

device:intel 8212 8 oit i/o oort,ic 18 
connect ions: 

oins 3,5,7,9, 16, 18,20,22(di (9: 16) ) = 
remainder to 



KEYFLGC9: 16) 



around 

Dins «, 6, 8, 10, 15, 17, 19,21 (do(9: lb) ) = db ( 9 : l b ) 

oin 2 ( m d ) = and 

oi n 11 (sto) = and 

oin 1 (dsl-bar) = .not. (decode a(8:lS) value 0) 
oin 15 ( d s 2 ) = ino .and, doin 

oin 24 = + 5 v 
oin 12 = and 

16 oit outout oort coiiDosed of two 8 bit oorts 
x 1 is for low order oyte 
x9 is for high order byte 
condition-mode outout interface hardware to issue 
s i ana 1 : xl 

device: intel 8212 8-bit i /p oort; ic 19 

connec t i on s : 

oins 3,5,7,9,16,19,20,22 ( di ( 1 : 8 ) ) = db(l:8) 
oins / 4,6,9, 10,15, 17,19,21 (do (1:8)) = x 1 ( 1 : 8 ) ;if 

8 are req 

oin 2 (md) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 0) 
oin 24 (vcc) - *5v 
oin 12 (and) = qnd 

condition-mode outout interface hardware to issue 
s i ana 1 : x 9 

device: intel 8212 9-bit i/o oort, ic 20 

connect i ons : 

pins 3,5,7,9,lb,18,?0,22 ( d i (1:8)) = db(l:8) 
oins 4,6,9,10,15,17,19,21 (do (1:8)) = *9(1:8) ?if 

8 are req 

Din 2 (md) - ♦ 5 v 

Din 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 1) 
oin 24 (vcc) = 1 5 v 
oin 12 (qnd) - qnd 

condition mode inout interface hardware to sense 
siqnal < E Y C H A 

device:intel 8212 8 bit i/o oort,ic 21 
connec t ions: 

pins 3,5, 7,9, 16, 18,20, 22(di ( 1 :8) ) = r\EYCMA(l:8) 
remainder to 

around 

oins 4,6,8, 1 0, 15, 1 7, 1 9, 21 (do ( 1 : 8) ) = db(l:8) 
oin 2 (md) = qnd 
oin 11 (sto) = qnd 

pin 1 (dsl-bar) = .not. (decode a(0:7) value 1) 
oin 13 (ds2) = i no .and. doin 



oin 2 4 - *5 v 
Pin 12 = q n d 

condition mode inout interface hardware to s°nse 
signal KEYCHA 

deviceiintel 8212 8 bit i /o oort,ic 22 
connections: 

oins 3,5,7,9,16, 18, 20, 22(di (9:16)) = KEYCHA(9:16) 
remainder to 

around 

oins 4,6,8, 10, 15, 17, 19,21 (do(9: 16)) = db(9:ib) 
oin 2 (md) = qn d 
oin 11 (sto) = and 

oin 1 (dsl-bar) = .not. (decode a(8:15) value 1) 
oin 13 (ds2) = i no .and. doin 
oin 24 = ♦ 5 v 

oin 12 = qnd 

condition mode inout interface hardware to sense 
signal *E YCH A 

device: intel 8212 8 bit i / o o o r t , i c 23 
c onnec t ions: 

oins 3.5,7,9,16, 18, 20, 22(di (1:8)) = KEYCHA(t:8) 

remainder to 
ground 

oins 4,6,8, 10, 15, 1 7, 19, 21 (do( 1 :8) ) = dbd:8) 
oin 2 (md) = qnd 
oin It (sto) = and 

pin 1 (dsl-bar) = .not. (decode a(0:7) value 2) 
oin 13 (ds?) - i no .and. doin 
oin 24 = * 5 v 
oin 12 = g n d 

condition mode inout interface hardware to sense 
signal * E Y C H A 

device:intel 8212 8 bit i / o o o r t , i c 24 
connections: 

oins 3,5, 7,9, 16, 18, 20, 22 ( d i (9: lb) ) = KEYCHA(9;16) 
remainder to 

q round 

pins 4 , 6 , 8 , 1 0 , 1 5 , 1 7 , 1 9 , 2 1 ( do ( 9 : 1 6 ) ) = db(9:l6) 
oin 2 (md) = qnd 

oin 11 (sto) = and 

oin 1 (dsl-bar) = .not. (decode a(8:15) value 2) 
oin 13 (Js2) = inp .and. doin 

oin 24 - + 5 v 

oin 12 = qnd 

16 oit outout port composed of two 8 bit oorts 
*17 is for low order byte 
x25 is for high order byte 
condition-mode outout interface hardware to issue 



138 



signal: * 1 7 

device: intel 8212 8-bit i /o port » ic 25 

connec t i ons : 

Dins 5,5,7,9,16,18,20,22 (di(l:R)) = db(l:8) 

Dins 4,6,3,10,15,17,19,21 (do (1:8)) = x 17 (1:8) Jif 

8 are r eg 

Din 2 ( 7t d ) = *5v 

Din 11 (stb) = qnd 

pin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a ( 0 : 7 ) value 2) 
pin 24 (vcc) - + 5 v 
pin 12 (gnd) = qnd 

c ond i t i on -node output interface hardware to issue 
signal: x 25 

device: intel 8212 8-bit Wo Dort, ic 26 

connect i ons: 

pins 3, 5, 7,9, 16, 1 8, 20, 22 ( d i ( 1 : 8 ) ) = db (1:8) 
oins 4,5,3,10,15,17,19,21 (do (1:8)) = x 25 (1:8) ;if 

8 are req 

Din 2 ( m d ) = + 5 v 

Din 11 (stb) = gnd 

pin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 3) 
Din 24 (vcc) = + 5 v 
Din 12 (gnd) = and 

condition node input interface hardware to sense 
siqnal ^ E Y C H A 

device:intel 8212 8 bit i/o oort,ic 27 
connec t ions: 

Dins 3,5, 7,9, 16, 18,20, 22 ( d i (1 :8) ) = KEYCHA(1:8) 
remainder to 

around 

oin S 4, 6, 8, 10, 15, 17, 19, 21( do (1:8)) = db(l:8) 
oin 2 (md) = qnd 
oin 11 (sto) = gnd 

oin 1 (dsl-bar) = .not. (decode a(0:7) value 3) 

Din 13 (ds2) = i no .and. doin 
pin 24 = +5v 
Din 12 = qnd 

condition node inout interface hardware to sense 
s i gn a 1 K E Y CH A 

device:intel 8212 8 bit i/o oort,ic 28 
connec t i ons : 

Dins 3, 5, 7, 9, 16, 18,20, 22(di (9: 16) ) = KEYCHA(9:16) 
remainder to 

ground 

Dins 4,6,8, 10, 15, 1 7, 19,21 (do(9: 16) ) = db ( 9 : 1 6 ) 
oin 2 (md) = and 
pin 11 (sto) = qnd 



1 39 



oin 1 (dsl-bar ) = .not • (decode a ( 8 : 1 5 ) value 3 ) 
oin 13 (ds2) = inp .and, doin 

Din 24 = ♦ 5 v 

oin 12 = qnd 

condition -node inout interface hardware to sense 
signal < E Y C H A 

devicerintel 8212 8 bit i /o oort,ic 29 
connections: 

Dins 3,5, 7,9, 16, 18,20, 22(di ( 1 :8) ) = KFYCHA(1:8) 
remainder to 

q round 

oins 4, 6, 8, 1 0, IS, 1 7, 19, 21 (dot 1 : 8) ) = do(l:8) 
oin 2 (md) = gnd 

oin 11 (sto) = qnd 

oin 1 (dsl-bar) = .not, (decode a(0:7) value 4) 
oin 13 ( d s 2 ) = i no .and, doin 

oin 24 = +5 v 

oin 12 = qnd 

condition mode inout interface hardware to sense 
signal < E Y C H A 

devicerintel 8212 8 bit i / o oort , ic 30 
c onnec t ions: 

oins 3,5, 7,9, 16, 18,20,22(di (9: 16)) = KEYCHA(9:16) 
remainder to 

ground 

oins 4, 6,8, t 0, 15, 1 7, 19, 21 (do(9: 16) ) = db(9:l6) 
oin 2 (md) = qnd 

oin 11 (sto) = gnd 

oin 1 (dsl-bar) = .not. (decode a ( 8 : 15) value 4) 
oin 13 (ds2) = i no .and. doin 

oin 24 = +5v 

oin 12 • and 

16 oit outojt oort comoosed of two 8 bit oorts 
x33 is for low order byte 
x 4 1 is for high order byte 
condition-mode output interface hardware to issue 
s i qna 1 : x 33 

device: intel 8212 8-bit i / o oort, ic 31 

connections: 

pins 3,5,7,9,16,19,20,22 (di(l:fl)) = db C 1 : 8 ) 
pins 4,6,8,10,15,17,19,21 (do(l:8)) = x33(l:8) ; 

8 are req 

oin 2 (md) = + 5v 

pin 11 (stb) - qnd 

oin 1 (dsl-bar) = wr-bar 

oin 13 (ds2) = out .and. (decode a(0:7) value 4) 
oin 24 (vcc) = + 5 v 
oin 12 (qnd) = qnd 

c ond i t i on -m ode outout interface hardware to issue 







. 




s i qna 1 



ic 32 



8 are 



sianal 



8 are 



signal 



8 are 



signal 



8 are 



: x4 i 

device: intel 8212 8-git i /o oort, 

connec t i ons : 
oins 3,5,7,9,15,18,20,22 ( d i ( 1 : 8 ) ) = db(l:8) 



oins 


a, 


6,9, 10/ 15/ 17 


/ 19, 21 


( do ( 1 : 


8 ) ) = x 4 1 ( l : 8 ) ; 


r eq 












p i n 


? 


( m d ) - + 5 v 








d i n 


1 1 


(stb) = and 








d i n 


l 


(dsl-bar) = 


wr-oar 






d i n 


1 3 


( ds2 ) - out 


. and . 


( decode 


a ( 0 : 7 ) value 5) 


p i n 


2 a 


( vcc ) = + 5v 








d i n 


12 


(and) = and 








lb bit 


outout oort composed 


of two 


8 bit do r t s 



x 4 9 is for low order oyte 
x57 is for hiqh order byte 
c on d i t i on -m ode output interface hardware to issue 

: x 49 

device: intel 8212 8-bit i/o oort, ic 33 

connections: 

oins 3, 5, 7,9, 16, 18,20.22 (di(l:8)) = db(l:8) 
oins 4,6,3,10,15,17,19,21 ( do (1:8)) = x49(t:8) ;if 

r so 

oin 2 ( md ) = + 5 v 

oin 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds?) = out .and. (decode a(0:7) value b) 
oin 24 (vcc) - + 5 v 
oin 12 (gnd) = and 

condition-mode outout interface hardware to issue 
: x 57 

device: intel 8212 8-bit i/o oort, ic 34 

connections: 



oins 


3, 


5,7,9, 16, 19, 


20,22 


( d i ( 1 : H ) ) = 


db ( 1 : fl ) 


oins 


a , 


6,9,10,15,17 


,19,21 


( do ( 1 : 


9) ) = 


x 5 7 ( 1 : 6 ) 


r eq 














p i n 


2 


( m d ) = + 5 v 










o i n 


1 1 


(stb) = and 










d i n 


1 


(dsl-bar) = 


wr-oar 








o i n 


1 3 


( ds2 ) = out 


. and . 


(decode 


a ( 0 : 


7 ) value 


o i n 


2 a 


( vcc ) = *5v 










o i n 


12 


(qnd) = gnd 










16 bit 


outout oort comoosed 


of two 


8 o i 


t do r t s 



x65 is for low order oyte 
x73 is for high order byte 
condition-mode outout interface hardware to issue 



: x 65 

device: intel 8212 8-bit i/o oort, ic 35 

connec t i ons : 

oins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 
oins 4,6,8,10,15,17,19,21 (do(l:8)) = xb5(l:8) ;if 

rea 
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pin 2 ( md ) = + 5v 

oin 11 (stb) = gnd 

pin 1 (dsl-bar) = wr-bar 

pin 13 (ds2) = out .and. (decode a(0:7) value 8) 
pin 2 8 ( v c c ) - + 5 v 
Din 12 (gnd) = gnd 

condition-mode outout interface hardware to issue 
signal: x 7 3 

device: intel 8212 8-bit i/o oort, ic 3b 

connections: 

Dins 3,5,7,9,16,18,20,22 (di(l:6)) = db(l:8) 

Dins 8,6,8,10,15,17,19,21 ( do ( 1 : 8 ) ) = *73(1:8) ; i f 

8 are rea 

oin 2 (md) - + 5v 

Din 11 (stb) = gnd 

Din 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value 9) 
Din 28 (vcc) = + 5 v 
oin 12 (gnd) = gnd 

16 oit out d jt oort comDosed of two 8 bit ports 
x8l is for low order oyte 
x89 is for high order byte 
c ond i t i on -m ode outout interface hardware to issue 
signal: x 8 1 

device: intel 8212 8-bit i/o oort, ic 37 

connect i ons: 

oins 3,5,7,9,16,18,20,22 (di (1:8)) = db(l:8) 

Dins 8,6,8,10,15,17,19,21 (do (1:8)) = x81(l:8) ;if 

8 are rea 

Din 2 (md) = + 5 v 

pin 11 (stb) = gnd 

Din 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 10) 
Din 29 (vcc) = +5v 
Din 12 ( gnd ) = gnd 

c ond i t i on -mode outout interface hardware to issue 
signal: x 89 

device: intel 8212 8-bit i/o oort , ic 38 

connections: 

Dins 3,5,7,9, 16, 1 3,20,22 (di(l:8)) r d b ( 1 : 8 ) 

Dins 8,6,3,10,15,17,19,21 (do(l:8)) = x«9(l:e) ;if 

8 are r eg 

Din 2 (md) = -t-5v 

Din 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

Din 15 (ds2) = out .and. (decode a(0:7) value 11) 
Din 28 (vcc) - t5v 
Din 12 (and) = gnd 

16 oit outout oort composed of two 8 bit oorts 
x97 is for low order oyte 
xl05 is for high order oyte 



signal 



condition-mode outout interface hardware to issue 
: x 9 7 

device: intel 8 2 1 2 8-bit i/o oort , ic 39 

connections: 

oins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 
oms a, 6, 3, 10, 15, 17, 19,21 (do (1:8)) = *97(1:8) ,*if 

8 are r eo 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and, (decode a(0:7) value 12) 
oin 24 (vcc) = + 5 v 
oin 12 (gnd) = gnd 

c on d i t i on -m ode outout interface hardware to issue 
signal: x 1 05 

device: intel 8212 8-oit i/o oort, ic 40 

connec t i ons : 

oins 3,5, 7,9, 16, 18,20,22 ( d i (1 : 8 ) ) = db(l:8) 
oins 4,6,8,10,15,17,19,21 (do(l:8)) = xl05(l:3) 

; i f 8 are reg 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 13) 
pin 24 (vcc) - + 5 v 
pin 12 (gnd) = gnd 

16 oit outout oort composed of two 8 bit ports 
x 1 1 3 is for low order byte 
x 1 2 1 is for high order oyte 
c ond i t i on -m ode outout interface hardware to issue 
signal: x 1 1 3 

device: intel 8212 8-bit i/o oort, ic 41 

connect i ons: 

Dins 3, 5, 7, 9, 1 6, 1 8, 20, 22 ( d i ( 1 : 8 ) ) = db ( 1 : 8 ) 
oins 4,6,8,10,15,17,19,21 (do(l:8)) = x 1 1 3 ( 1 : B ) 

J i f 8 are reg 

oin 2 ( m d ) = ♦ 5 v 

Din 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-bar 

oin 13 (ds2) = out .and. (decode a(0:7) value 14) 
oin 24 (vcc) - 1 5 v 
oin 12 (gnd) = qnd 

condition-mode outout interface hardware to issue 
signal: x 1 2 1 

device: intel 8212 8-bit i/o oort, ic 42 
connections: 

Dins 3 , 5 , 7 , 9 , 1 6 , 1 8 , 20 , 22 (di(l:8)) = db(l:8) 
oins 4,0,8,10,15,17,19,21 (do (1:8)) = *121(1:8) 

J if 8 are reo 

oin 2 (md) = t5v 
oin 11 (stb) = gnd 
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Din 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value lb) 
oin 2 9 (vcc ) - + 5 v 

Din 12 (god) = gnd 

16 Dit outojt oort comoosed of two 8 bit oorts 
xl29 is for low order byte 
xl37 is for high order oyte 
condition-mode outout interface hardware to issue 
signal: x 1 29 

device: i n t e 1 8212 8-bit i/o oort » ic 9 3 

connect i ons: 

oins 3, 5, 7,9, 16, 18,20,22 (di(l:8)) = db(l:8) 
oins 4, 6*3,10,15.17,19, 21 (do(l:8)) = x 1 29 ( 1 ; 8 ) 

; i f 8 are reg 

oin 2 (md) = + 5 v 

Din 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value lb) 
oin 29 (vcc) = t5v 
oin 12 (gnd) = gnd 

condition-mode outout interface hardware to issue 
signal: x 1 3 7 

device: intel 8212 0-bit i/o oort, ic 99 

connect i ons: 

oins 3,5,7,9,16,10,20,22 ( d i (1:8)) = db(l:8) 

Dins 9,6,9,10,15,17,19,21 (do (1:0)) = x 137(1:*) 

7 i f 0 are reg 



D i n 


2 


( m d ) 


= 1 5 v 








o i n 


1 1 


(stb) 


= gni 








D i n 


1 


(dsl - 


bar) = wr-oar 








D i n 


1 3 


( ds 2 ) 


= out .and. 


(decode 


a ( 0 : 7 ) 


value 17) 


o i n 


29 


(vcc ) 


= tSv 








o i n 


12 


( o nd ) 


= on d 








lb bit 


outout 


oort co'noosed 


of two 


8 oit 


oorts 



xl95 is for low order byte 
xl53 is for hiah order ovte 
condition-mode outout interface hardware to issue 
signal: x 1 95 

device: intel 3212 0-bit i/o oort, ic 95 

connections: 

oins 3,5,7,9,16,19,20,22 (di(l:8)) = db(l:0) 

Dins 9,6,9,10,15,17,19,21 (do(l:8)) = x 1 9 5 ( 1 : B ) 

; i f 8 are reg 

oin 2 (md) - +5v 

Din 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 18) 
Din 29 (vcc) = + 5 v 
oin 12 (gnd) = gnd 

condition-mode outout interface hardware to issue 
signal: x 1 5 3 



device: intel 8212 8-bit i /o oort» ic 46 

connec t i ons: 

oins 3,5,7,9,16,19,20,22 (di(l:8)) = db(l:8) 

Dins 4,6,9,10,15,17,19,21 (do(l:8)) = xl53(l:8) 

; i f 8 are req 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = and 

oin 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value 19) 
oin 24 ( v c c ) = + 5 v 
oin 12 (gnd) = and 

16 bit outojt port composed of two 8 bit oorts 
xl61 is for low order byte 
x 1 6 9 is for hiqh order oyte 
condition-mode outojt interface hardware to issje 
s i an a 1 : x 1 6 1 

device: intel 8212 8-bit i/o oort, ic 47 

connec t i ons: 

oins 3,5,7,9,16,19,20,22 (di(l:8)) = db ( 1 : 8 ) 

Dins 4,6,9,10,15,17,19,21 (do (1:8)) = x 161 (1:8) 

,* i f 8 are req 

oin 2 ( md ) = t5v 

oin 11 (sto) = qnd 

oin 1 (dsl-bar) = wr-bar 

oin 13 (ds2) = out .and. (decode a(0:7) value 20) 
oin 24 (vcc) = ♦ 5 v 
oin 12 (qnd) = qnd 

condi t i on-mode outout interface hardware to issue 
siqnal: x!69 

device: intel 8212 8-bit i/o oort, ic 48 

connections: 

oins 3,5, 7,9, 16, 1 9,20,22 (di(l:8)) = db(l:8) 
oins 4,6, 9, 10, t5, 17, 19,21 (do(l:8)) = *169(1:9) 

; i f 8 are req 

oin 2 ( m d ) = 1 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-bar 

oin 13 (ds2) = out .and. (decode a ( 0 : 7 ) value 21) 

oin 24 (vcc) = +5v 

oin 12 (qnd) = qnd 

16 bit outout oort composed of two 8 bit oorts 
xl77 is for low order byte 
xl85 is for hiqh order oyte 
condition-mode outout interface hardware to issue 
siqnal: x 1 7 7 

device: intel 8212 8-bit i/o oort, ic 49 

connect i ons: 

oins 3,5, 7,9, 1 6, 1 8,20,22 ( d i ( 1 : 9 ) ) = db ( 1 : 8 ) 
oins 4,6,9,10,15,17,19,21 ( do ( 1 : B ) ) = x 1 7 7 ( 1 : B ) 

7 i f 8 are req 

oin 2 (md) = + 5 v 



Din 11 Cstb) = qnd 

oin 1 (dsl-bar) = ^r-oar 

Din 13 (ds2) = out .anl, (decode a(0:7) value 22) 

Din 24 (v:c ) = f5v 
oin 12 (god) = qnd 

c ond i t i on -mode outout interface hardware to issue 
signal: x 1 85 

device: intel 8212 8-bit i/o oort, ic 50 

connec t i ons : 

Dins 3 , 5 # 7 , 9 , 16# 18,20,22 (di(l:8)) = db(l:8) 

Dins 4,6,3,10,15,17,19,21 (do(l:8)) = xlP5(l:8) 

; i f 8 are req 

oin 2 ( m d ) = ♦ 5 v 

oin 11 (stb) = gnd 

Din 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 23) 
oin 24 (vcc) - f 5 v 
Din 12 (qnd) = gnd 

condition mode inout interface hardware to sense 
siqnal ^EYCHA 

device: intel 8212 8 oit i/o o o r t , i c 51 
connections: 

oins 3,5, 7,9, 1 6, 18,20,22(di ( 1 :8) ) = KEYCHA(1:8) 
remainder to 

ground 

oins 4,6, 8, 1 0, 15, 1 7, 19, 21 ( do( 1 : 8) ) = do(l:8) 
oin 2 (md) = qnd 
oin 11 (sto) = qnd 

oin 1 (dsl-bar) = .not. (decode a(0:7) value 5) 
oin 13 (ds2) = i no .and. doin 
oin 24 - +5v 
oin 12 = gnd 

condition mode inout interface hardware to sense 
s i qna 1 KE YCHA 

device:intel 8212 8 bit i/o oort ^ ic 52 
c onnec t i ons : 

oins 3,5, 7,9, lb, 18,20,22(di (9: 16) ) = KEYCHA(9:16) 
remainder to 

q round 

Dins 4,6,8, 10, 15, 17, 19,21 (do(9: lb) ) = db(9:l 6) 
oin 2 (md) = qnd 
oin 11 (sto) = gnd 

oin 1 (dsl-bar) = .not. (decode a(8:15) value 5) 
oin 13 (ds2) = i no .and. doin 
oin 24 = > 5 v 
oin 12 = qnd 

16 oit outout oort comoosed of two 8 bit ports 
xl93 is for low order byte 
x201 is for hioh order oyte 



condition-mode o u t o j t interface hardware to issue 
s i qna 1 : x 1 9 3 

device: intel 8 2 1 2 8-bit i / o oort, ic 53 

connect i ons: 

oins 3/5/ 7,9, 16/ 19,20,22 (di(l:8)) = db(t:8) 
oins <1,6,8,10,15,17,19,21 (do(l:8)) = xl93(l:ft) 

; i f 0 are req 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = and 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and, (decode a ( 0 : 7 ) value 2 4) 
oin 24 ( v c c ) - t5 v 

oin 12 (gnd) = gnd 

condi t i on-node outout interface hardware to issue 
signal: x 2 0 1 

device: intel 8212 8-bit i /o oort, ic 54 

connec tions: 

Dins 3,5, 7,9, 16, 18,20,22 (di(l:8)) = db(l:8) 
oins 4,6,8, 10, 15, 17, 1 Q , 21 (do(l:8)) = x201(l:8) 

? i f 8 are red 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 25) 
oin 24 (vcc) = + 5 v 
oin 12 (gnd) = qnd 

condition mode inout interface hardware to sense 
s i qna 1 YCHA 

device: intel 8212 9 oit i/o oort , i c 55 
c onnec tions: 

oins 3,5,7,9,16, 18, 20, 22(di (1:0)) = KEYCHA(1:8) 
remainder to 

around 

oins 4,6,8, 10, 15, 17, 19,21 (do( 1 :B) ) = db(l:8) 
oin 2 (aid) = and 
oin 11 ( s t o ) = and 

oin 1 (dsl-bar) = .not. (decode a(0:7) value b) 
pin 13 (ds2) = ino .and. doin 
oin 24 = + 5v 
oin 12 = qnd 

condition mode inout interface hardware to sense 
signal KE YCHA 

device:intel 9212 8 bit i/o oort , i c 5b 
connections: 

oins 3,5, 7,9, lb, 18,20,22(di (9: 16) ) = KE YCH A ( 9 : 16) 
remainder to 

around 

oins 4,6,8, 10, 15, 17, 19,21 (do(9: 16) ) = db(9:l6) 
oin 2 ( m d ) = qnd 
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oin 11 ( s t d ) = gnd 

Din 1 (dsl-bar) = .not • (decode a(8:15) value 6) 
oin 13 ( d s 2 ) = ino .and. doin 

oin 24 = + 5 v 
Din 12 = gnd 

lb bit out d j t oort composed of two 8 oit ports 
x 2 0 9 is for low order byte 
x 2 1 7 is for high order oyte 
condition-mode outout interface hardware to issue 
signal: x 209 

device: intel 8212 8-bit i/o oort/ ic 57 

connect i ons: 

oins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 
oins 4,6,9,10,15,17,19,21 (do(l:8)) = x 209(l:8) 

? i f 8 are req 

oin 2 (md) = + 5 v 

oin 11 ( s t D ) = gnd 

pin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 26) 
oin 2 4 ( v c c ) - + 5 v 
oin 12 (gnd) = gnd 

condition-mode outout interface hardware to issue 
signal: x 2 1 7 

device: intel 8212 8-bit i/o oort, ic 58 

connect i ons: 

Dins 3,5, 7,9, 16, 18,20,22 (di(l:8)) = db(l:8) 
oins <1,6,8,10,15,17,19,21 (do(l:8)) = x217(l:8) 

; i f 8 are ren 

oin 2 ( m d ) = + 5 v 

Din 11 (sto) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 27) 
oin 2 '4 ( v:c ) - + 5 v 
pin 12 ( qnd ) = and 

1 6 oit outout oort composed of two 8 bit oorts 
x225 is for low order by t e 
x233 is for high order oyte 
condition-mode outout interface hardware to issue 
signal: x225 

device: intel 9212 8-bit i/o oort, ic 59 

connections: 

Dins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:9) 
pins a, 6, 9, 1 0 , 1 5, 1 7 , 1 9, 21 ( do (1:8)) = x22 5(1:6) 

? i f 8 are req 

oin 2 (md) = t5v 

oin 11 ( s t b ) = qnd 

pin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 26) 
oin 24 (vcc) = + 5v 
oin 12 ( gnd ) = gnd 

condition-mode output interface hardware to issue 
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signal: x 2 3 3 

device: intel 8212 8-bit i/o port, ic 60 

connect i ons: 

pins 3,5, 7,9, 16, 18,20,22 (di(l:8)) = db (1:8) 

Dins a, 6, 8, 10, 15, 17, 19,21 (do(l:8)) = *233(1:8) 

; i f 8 are rea 

oin 2 ( ti d ) = + 5v 

Din 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 29) 

oin 29 (vcc) = +5v 

oin 12 ( gnd ) = gnd 

16 bit outojt oort comoosed of two 8 bit ports 
x 2 9 1 is for low order byte 
x?99 is for high order oyte 
C ond i t i on -mode output interface hardware to issue 
signal: x 29 1 

device: intel 8212 8-bit i/o oort, ic ol 

connect i ons: 

Dins 3,5,7,9,16,13,20,22 ( d i (1:8)) = db (1:8) 
oins 9,6,8,10,15,17,19,21 ( do ( 1 : 8 ) ) = *241(1:8) 

; i f 8 are req 

oin 2 (md) = + 5 v 

Din 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value 50) 
oin 29 (vcc) - +5v 
pin 12 (and) - and 

condition-mode outout interface hardware to issue 
signal: x299 

device: intel 8212 8-bit i/o oort, ic 62 

connect i ons: 

Dins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 



oins 




6,3,10,15,17,19,21 


( do ( 1 : 


8 ) ) = x 2 4 9 ( 1 : 


8) 


are rea 












o i n 


2 


( md ) = +5v 








D i n 


1 1 


(stb) - an 1 








o i n 


1 


(dsl-bar) - wr-bar 








d i n 


1 3 


(ds2) = out .and. 


(decode 


a ( 0 : 7 ) value 


31 ) 


d i n 


24 


(vcc) - ♦ 5 v 








d i n 


12 


(gnd) = gnd 








16 bit 


outout oort composed 


of two 


8 bit oorts 





x257 is for low order byte 
x265 is for hiah order oyte 
condition-mode outout interface hardware to issue 
signal: x257 

device: intel 8212 8-bit i/o oort, ic b3 

connections: 

pins 3,5,7,9,16,18,20,22 (di (1:8)) - db(l:3) 
Dins 9,6,3,10,15,17,19,21 (do(l:8)) = *257(1:8) 

; i f 8 are rea 



oin 2 ( m d ) = + 5 v 

oin 11 (stb) = qn j 

oin 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a( 0:7) value 32) 
oin 24 ( vcc ) = +5 v 

oin 12 (and) = qnd 

condi t i on-Tiode outout interface hardware to issue 
siqnal : x 2 6 5 

device: intel 8212 8-bit i/o oort > ic 6 4 

connec t i on s : 

Dins 3, 5, 7,9, 16, 1*, 20, 22 ( d i ( 1 : A ) ) = db(l:A) 
oins a, b, 3, 10, 15, 17,19,21 ( do ( 1 : 8)) = x265 (l:8) 

; i f 8 are rea 

oin 2 ( m d ) = +5v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 33) 
oin 24 ( vcc ) = + 5v 
oin 12 ( qnd ) = qnd 

16 Dit outout oort composed of two 8 bit oorts 
x 2 7 3 is for low order byte 
x281 is for hiah order oyte 
condition-mode outout interface hardware to issue 
signal: x273 

device: intel 8212 8-bit i/o oort, ic 65 

connec t i ons : 

Dins 3,5, 7,9, 16/ 18,20,22 ( d i (1:8)) = db (1:8) 

Dins 4,6,8,10,15,17,19,21 (do(l:8)) = *273(1:8) 

; i f 8 are r eq 

oin 2 (md) = + 5 v 

oin 11 (stb) = qnd 

Din 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode 3(0:7) value 34) 

Din 24 (vcc) = + 5 v 
oin 12 (qnd) - qnd 

condition-mode outout interface hardware to issue 
siqnal: x 28 1 

device: intel 8212 8-bit i/o oort, ic 66 

connect i ons: 

oins 3 , 5 , 7 , 9 , 1 6 , 1 8 , 20 , 22 (di (1:8)) = dh(l:8) 



oins 


a. 


8,8,10,15/17,19,21 ( 'jo ( 1 : 


8) ) = x 2 8 1 (1:8) 


are req 










o i n 


2 


(md) - +■ 5 v 






o i n 


1 1 


(stb) = qnd 






d i n 


l 


(dsl-bar) = 


wr-oar 




D i n 


1 3 


( ds2 ) = out 


.and. (decode 


a ( 0 : 7 ) value 35) 


D i n 


29 


( vcc ) - + 5v 






d i n 


12 


(god) = qnd 






16 bit 


outojt oort c 


omoosed of two 


8 bit do r t s 


x 289 


is for low 


order byte 




x 29 7 


is for high 


order oyte 
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condition-node outout interface hardware to issue 
signal : x289 

device: intel « 2 1 2 8-bit i/o oort» ic 67 

connections: 

oins 3,5, 7,9, 16, 18,20,22 (di(l:8)) = db(t:8) 

Dins 9,0,9,10,15,17,19,21 C do C 1 : 8 ) ) = *289( 1 : 8) 

J i f 8 are r eq 

Din 2 (nd) = ♦ 5 v 

oin 11 (stb) - qnd 

oin 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value 3b) 
oin 29 (vcc) = +5v 
oin 12 (qnd) = qnd 

condition-node outout interface hardware to issue 
signal: * 297 

device: intel 8212 8-bit i/o oort, ic 68 

connec t i ons : 

Dins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 



pins 


9, 


6,9,10,15,17,19,21 ( do ( 1 : 8 ) ) = *297(1:9) 


are req 








D i n 


2 


( nd ) = +5v 




o i n 


1 1 


(stb) - gn d 




o l n 


1 


(dsl-bar) = 


wr-bar 


o i n 


1 3 


( ds2 ) = out 


.and. (decode a(0:7) value 37) 


o i n 


29 


(vcc) - +5v 




D i n 


12 


(qnd) = qnd 




lb o i t 


outout oort c 


OTioosed of two 8 bit oorts 


*305 


is for low 


order byte 


*313 


is for high 


order oyte 



c ond i t i on -m ode outout interface hardware to issue 
siqnal: *305 

device: intel 8212 9-bit i/o oort, ic 69 

connections: 

Dins 3,5,7,9,16,13,20,22 ( d i ( 1 : 8 ) ) = d b ( 1 : 8 ) 
oins 9,6,3,10,15,17,19,21 (do(l:8)) = *305(1:8) 

Jif 8 are req 

oin 2 ( n d ) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-bar 

oin 13 (ds2) = out .and. (decode a(0:7) value 38) 

oin 29 (vcc) = *5 v 

oin 12 (qnd) = qnd 

condition-node outout interface hardware to issue 
signal: * 3 1 3 

device: intel 821? 8-bit i/o oort, ic 70 

connections: 

Dins 3,5, 7,9, 16, 18,20,22 ( d i (1:3)) = db(l:8) 
oins 9,6,9,10,15,17,19,21 (do(l:8)) = *313(1:8) 

; i f 8 are req 

oin 2 (md) - +5v 
oin 11 (stb) = and 
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Din 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 3 q ) 
Din 29 (vcc) = + 5 v 
Din 12 ( god ) = qnd 

16 bit outojt oort conoosed of two 8 Dit oorts 
x321 is for low order byte 
x329 is for hiah order ovte 
condition-node outout interface hardware to issue 
s i qna 1 : x 32 1 

device: intel 8212 8-bit i /o oort ( ic 71 

connec t i ons : 

oins 3,5, 7,9, 16, 1 8,20, 22 (di(l:8)) = db (1:8) 
oins 9,6,3,10,15,17,19,21 (do (1:8)) = x 32 1(1:8) 

; i f 8 are req 

Din 2 ( n d ) = + 5 v 

oin 11 ( s t D ) = qnd 

oin 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a ( 0 : 7 ) value 90) 
oin 29 ( v:c ) = + 5 v 
Din 12 (qnd ) = qnd 

condition-node outout interface hardware to issue 
siqnal: x329 

device: intel 8212 8-bit i /o Dort, ic 72 

connect i ons: 

oins 3,5,7,9,16,18,20,22 (di(l:8)) = db ( 1 : 8 ) 
oins 9,6,3,10,15,17,19,21 ( do ( 1 : 8 ) ) = x329(l;8) 

J i f 8 are req 

Din 2 (md) = + 5 v 

oin 11 (stb) = gnd 

Din 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value 91) 
Din 29 (vcc) = + 5 v 
Din 12 (qnd) = gnd 

16 bit out d u t Dort conoosed of two 8 bit oorts 
x337 is for low order byte 
x395 is for high order oyte 
c ond i t i on -node outout interface hardware to issue 
signal: x 337 

device: intel 8212 8-bit i/o oort, ic 73 

connec t i ons : 

Dins 3,5,7,9,16,13,20,22 ( d i ( 1 : 3 ) ) = db ( 1 : 8 ) 

Dins 9,6,3,10,15,17,19,21 (do (1:8)) = x337(l:3) 

; i f 8 are req 

oin 2 (nd) = +5v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a ( 0 : 7 ) value 92) 
oin 29 (vcc) = t5v 
oin 12 ( ond ) = gnd 

condition-node outout interface hardware to issue 
signal: x 395 
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. 




device: intel 8 2 1 2 8-bit i/o oort, ic 7 4 

connections: 

pins 3,5,7,9,16,18,20,32 (di(l:8)) = db(l:8) 
Dins a, 6, 3, 10, 15, 17, 19,21 ( do £ 1 : 8 ) ) = x345(l:8) 

; i f 8 are rep 

pin 2 ( m d ) = *5v 

Din 11 (stb) = and 

Din 1 (dsl-bar) = wr-bar 



D i n 


1 3 


( ds2) 


- out .and. 


(decode 


a(0:7) value 43) 


d i n 


24 


( V c c ) 


= + Sv 






d i n 


12 


( qn d ) 


= and 






b i t 


OUtDJt 


oort co^oosed 


Of two 


8 bit oorts 



x353 is for low order byte 
x361 is for high order oyte 
condition-mode outout interface hardware to issue 
signal: x 35 3 

device: intel 8212 8-bit i/o Dort, ic 75 

connect i ons: 

oins 3,5,7,9,1 6,1 8,20,22 C d i (1:8)) = db(l:8) 

Dins a, 6, 8, 10, 15, 17, 19,21 ( do ( 1 : 8 ) ) = x 35 3 ( 1 : 8 ) 

; i f 8 are rep 

Din 2 ( m d ) = +5v 

oin 11 (stb) = gnd 

Din 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 49) 

oin 24 ( v c c ) = +5v 

Din 12 (gnd) = gnd 

condition-node outout interface hardware to issue 
signal: x 36 1 

device: intel 8212 8-bit i/o oort , ic 76 

connections: 

Dins 3,5,7,9,16,18,20,22 ( d i ( 1 : 8 ) ) = db ( 1 : 8 ) 

Dins 4,6,3,10,15,17,19,21 ( do ( 1 : 8 ) ) = x361(l:8) 

; i f 8 are req 



d i n 


2 


(md) 


= + 5 v 




o i n 


1 1 


(stb) 


- gnd 




o i n 


1 


( ds 1 - 


bar ) = wr-bar 




D i n 


1 3 


( ds2 ) 


= out .and. (decode a(0: 


7 ) value 


D i n 


2 9 


( v c c ) 


= +5 v 




o i n 


12 


( and ) 


= gnd 




condition 


mode 


inout interface hardware 


to sense 



s i gna 1 KEYCHA 

devicerintel 8212 8 nit i/o oort,ic 77 
connec t ions: 

Dins 3,5,7,9,16, 18, 20, 22(di (1:8)) = KEYCHA(lsR) 
remainder to 

ground 

Dins 4,6,8, 10, 15, 1 7, 19,21 (do(l :8) ) = do(l:8) 
oin 2 (md) = gnd 
oin 11 (sto) - gnd 
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pin 1 (dsl-par) = .not. (decode a(0:7) value 7) 
oin 13 (ds2) = i no .and. doin 

pin 24 - + 5 v 
oin 1 2 = q n d 

Condition Tioie input interface hardware to sense 
signal < E Y C H A 

deviceiintel 8212 8 bit i/o o o r t , i c 78 
connections: 

pins 3,5,7,9,1 6, 18,20, 22(di (9: 16) ) = KEYCHA(9:16) 
remainder to 

ground 

oins 4,6,8, 10, 15, 17, 19,21 (do(9: 16) ) = db(9:lb) 
oin 2 (md) = qnd 
oin 11 ($to) = qnd 

oin 1 (dsl-bar) = .not . (decode a(8:15) value 7) 
oin 13 (ds2) = i no .and. doin 
oin 24 = + 5 v 
oin 12 = g n d 

16 oit outojt port composed of two 8 oit ports 
x 3 6 9 is for low order byte 
x377 is for high order oyte 
condition-mode outout interface hardware to issue 
signal: x 369 

device: intel 8212 8-bit i/o oort, ic 79 

connect i on s : 

oins 3,5, 7,9,1 6, 1 8,20,22 ( d i ( 1 : 8 ) ) = d b ( 1 : 8 ) 
oins 4,6,3,10,15,17,19,21 C do ( 1 : 8)) = x369 (l:8) 

J i f 8 are req 

oin 2 (md) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 46) 
Din 24 ( v c c ) - + 5 v 

oin 12 (qnd) - qni 

condition-mode outout interface hardware to issue 
signal: x 3 7 7 

device: intel 8212 8-bit i/o oort, ic 80 

connect i ons: 

oins 3, 5, 7, 9, 1 6, 1 8, 20, 22 ( d i (1:8)) = db(i:8) 
pins 4,6,3,10,15,17,19,21 (do(l: 8)) = x 377 ( 1 : 8 ) 

; i f 8 are req 

pin 2 (md) = t5v 

pin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 47) 

oin 2 4 ( v c c ) = + 5 v 

oin 12 ( qnd ) = and 

16 Pit output oort composed of two 8 bit ports 
x385 is for low order byte 
x393 is for high order oyte 



c ond i t i on -m ode output interface hardware to issue 
signal: x 3 8 5 

device: intel 8212 8-bit i/o oort* ic 81 

connec t i on s : 

oins 3*5,7,9,16* 18,20,22 ( d i ( 1 : 8 ) ) = do (1:8) 
oins 4* t>* 3* 1 0 * 1 5* 1 7 * 1 9, 21 (do(l: 8 )) = x385(l:3) 

* i f 8 are req 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-Dar 

Din 13 (ds2) = out .and. (decode a ( 0 : 7 ) value 48) 

oin 24 ( vcc ) = + 5v 
pin 12 ( and ) = qnd 

condition-mode outout interface hardware to issue 
siqnal: x 3 9 3 

device: intel 8212 8-bit i/o oort* ic 82 

connec t i ons: 

oins 3*5*7*9,16*18*20*22 (di(l:8)) = db(l:8) 
pins 4*6*3,10*15*17*19,21 (do(l:8)) = x393(l:8) 

? i f 8 are req 

oin 2 (md) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-bar 

pin 13 (ds2) = out .and. (decode a(0:7) value 49) 
oin 24 (vcc) = ♦ 5 v 
oin 12 (qnd) = qnd 

lb bit outout oort composed of two 8 bit ports 
x401 is for low order byte 
x409 is for high order oyte 
condition-mode output interface hardware to issue 
siqnal: x 4 0 1 

device: intel 8212 8-Pit i/o oort* ic 83 

connect i ons: 

oins 3*5*7,9,16*13*20,22 ( d i (1:8)) = db(l:8) 
oins 4,6*3*10*15*17*19,21 (do(l:8)) = x401(l:8) 

; i f 8 are req 

pin 2 (md) ~ + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 50) 
oin 24 ( vcc ) = + 5v 

oin 12 (qnd) = qnd 

condition-mode output interface hardware to issue 
signal: x 409 

device: intel 8212 8-bit i/o oort* ic 84 

connec t i ons: 

oins 3*5*7*9*16*18,20*22 (di(l:8)) = db(l:3j 
oins 4,6*3*10*15*17*19,21 (do(l:ft)) = x409(l:8) 

* i f 8 are req 

oin 2 (md) = 1 5 v 

oin 11 (stb) = gnd 
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pin l (dsl-bar) = wr-bar 

pin 13 (ds2) = out .and. (decode a(0:7) value SI) 
pin 24 (v:c) = + 5 v 
oin 12 (and) = and 

16 bit outojt oort composed of two 8 bit ports 
x 4 1 7 is for low order byte 
x 4 2 5 is for hiah order byte 
condition-mode outout interface hardware to issue 
siqnal: x 4 1 7 

device: intel 8212 8-bit i /o oort , ic HS 

connections: 

pins 3,5*7,9,16/18,20,22 (di(l:8)) = db(l:8) 

pins 4,6,9,10,15,17,19,21 (do(l:8)) = x417(l:8) 

?if 8 are req 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) - and 

pin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 52) 
oin 24 (vcc) = * 5 v 
oin 12 (gnd) = gnd 

condition-mode outout interface hardware to issue 
signal: x 425 

device: intel 8212 8-bit i/o oort, ic 86 

connec t i ons: 

pins 3, 5, 7,9, 16, 18,20,22 (di(l:8)) = db(l:8) 
pins 4,6,9,10,15,17,19,21 (do(l:8)) = x425(l:3) 

? i f 8 are req 

pin 2 (md) = + 5 v 

oin 11 (stb) = gnd 

oin 1 (dsl-bar) - wr-bar 

oin 13 (ds?) = out .and. (decode a(0:7) value 53) 
oin 24 (vcc) = +5v 
oin 12 (gnd) = gnd 

16 oit outout port comoosed of two 8 oit ports 
x433 is for low order byte 
x441 is for high order oyte 
c on d i t i on -m ode outout interface hardware to issue 
signal: x 4 3 3 

device: intel 8212 8-bit i/o oort, ic 37 

connec t i ons : 

oins 3,5, 7,9, 1 6, 1 9,20,22 ( d i ( 1 : 8 ) ) = db(l:9) 
oins 4,6,9,10,15,17,19,21 (do(l:8)) = x433(l:8) 

; i f 8 are req 

oin 2 (md) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 54) 

oin 24 (vcc) = + 5 v 
oin 12 ( gnd ) = gnd 

condition-mode outout interface hardware to issue 
siqnal: x 4 4 1 
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device: intel 8212 8-bit i/o oort, ic 88 

connec t i 3ns: 

oins 3,5, 7,9, 16, 18,20,22 Cdi(l:8)) = db C 1 : 8 ) 



Dins 


4, 


6,9,10,15,17,19,21 


( do C 1 : 


8) ) = x 


4a l ( l : 


9) 


are req 














d i n 


2 


(md ) = +5v 










o i n 


1 1 


( s t b ) = gnd 










o i n 


1 


(dsl-bar) = wr-Dar 










o i n 


13 


(ds2 ) = out . and . 


(decode 


a(0: 7) 


value 


55) 


o i n 


24 


( v cc ) - +5 v 










D i n 


12 


(gnd) = gnd 










16 bit 


outout oort composed 


of two 


8 o i t 


oorts 





x449 is for low order byte 
<457 is for high order oyte 
condition-mode outout interface hardware to issue 
s i qna 1 : x 449 

device: intel 8212 8-bit i/o oort, ic 8^ 

connec t i ons : 

oins 3,5, 7,9, 16, 18,20,22 (di(l:8)) = db(l:8) 
oins a, 6, 9, 10, 15, 17, 19, 21 ( do C 1 : 8 ) ) = x449(l:8) 

; i f 8 are reo 

oin 2 (md) = ♦ 5 v 

oin 11 Cstb) = gnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 5b) 

oin 24 (v:c) - +5v 

oin 12 (gnd) = gnd 

condition-mode outout interface hardware to issue 
signal: x 45 7 

device: intel 8212 8-bit i/o oort, ic 90 

connect i ons: 



Dins 


3, 


5,7,9,16,19 


,20,22 


( d i (1:8)) = db( 1 : 8) 




oins 


4, 


6,9, 10, 15, 17,19,21 


( do ( 1 : 


8) ) = x 4 5 7 ( 1 : 


9) 


are req 














o i n 


2 


(md) - + 5 v 










o i n 


1 1 


( s t o ) - gnd 










o i n 


1 


(dsl-bar) = 


wr-Dar 








o i n 


1 3 


( ds2 ) - out 


. and • 


( decode 


a ( 0 : 7 ) value 


57) 


p i n 


24 


(vcc) = *■ 5 v 










o i n 


12 


(gnd) = gnd 










16 bit 


outout oort c 


omoosed 


of two 


8 bit oorts 




x 465 


is for low 


order byte 






x 4 7 3 


is for high 


order 


oyte 







c ond i t i on -m ode outout interface hardware to issue 
signal: x 465 

device: intel 8212 8-bit i/o oort, ic 91 

connect i ons: 

oins 3,5,7,9,16,18,20,22 ( d i C 1 : 8 ) ) = db(l:8) 
Dins 4,6,9,10,15,17,19,21 (do(l:8)) = x4b5(l:8) 

> i f 8 are req 

oin 2 (md) = + 5 v 
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pin 11 (stb) = and 

oi n 1 (dsl-bar) = wr-par 

oin 13 ( d s 2 ) = out .and. (decode a(0:7) value 58) 
oin 2 4 (vcc) = + 5 v 
oin 12 ( gnd ) = gnd 

condition-mode outout interface hardware to issue 
signal: x 4 7 3 

device: intel 8212 8-bit i /o oort, ic ^2 

connec t i ons : 

oins 3,5,7,9,16,18,20,22 C d i (1:8)) = db(l:8) 

Dins 4,6,8,10,15,17,19,21 (do(l:8)) = x473(l:8) 

; i f 8 are re q 

oin 2 ( md ) = 1 5 v 

oin 11 (stb) = and 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 5 Q ) 
oin 24 (vcc) - + 5 v 
oin 12 (gnd) = and 

16 bit outout oort coTioosed of two 8 bit ports 
x 4 8 1 is for low order byte 
x489 is for high order oyte 
condition-mode outout interface hardware to issue 
s i qna I : x 48 1 

device: intel 8212 8-bit i /o port, ic 93 

connec t i ons: 

oins 3,5,7,9,16,18,20,22 (di (1:8)) = db(l:8) 

Dins 4,6,8,10,15,17,19,21 (do(l:8)) = x481(l:8) 

?if 8 are req 

oin 2 ( m d ) = + 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 ( d $ 2 ) = out .and. (decode a(0:7) value 60) 
oin 24 (vcc) = + 5 v 
oin 12 (qnd) = gnd 

condi t i on-node outout interface hardware to issue 
signal: x489 

device: intel 8212 8-bit i/o oort, ic 94 

connect i ons: 

oins 3,5, 7,9, 1 6, 1 8,20,22 ( d i ( 1 : 8 ) ) = db(l:8) 



oins 


4, 


6,5,10,15,17,19,21 ( do C 1 : 


8) ) = *489( 1 : 


8) 


are req 












o i n 


2 


( m d ) = + 5v 








o i n 


1 1 


(stb) = Qnd 








O i n 


1 


(dsl-bar) = 


wr-oar 






D i n 


1 5 


(ds2 ) = out 


. and . ( decode 


a ( 0 : 7 ) value 


61 ) 


o i n 


24 


/ s 

< 

O 

o 

II 

+ 

Lfl 

< 








o i n 


1 2 


(qnd) - qnd 








16 oit 


outDjt oort C 


omoosed of two 


8 bit ports 




*497 


is for low 


order byte 






*505 


is for high 


order oyte 







condition-mode outout interface hardware to issue 
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signal: x 4 9 7 

device: intel 8 2 1 2 8-bit i/o Dort; ic 95 

connect i ons: 

oins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:B) 

Dins 4,6,3,10,15,17,19,21 (do(l:8)) = x497(l:8) 

; i f 8 are r e q 

ni n 2 ( m d ) = + 5 v 

Din ll (stb) = qnd 

oin 1 (dsl-bar) = wr-bar 

Din 13 (ds2) = out .and, (decode a(0:7) value 62) 
oin 24 ( v C c ) = + 5 v 

Din 12 (qnd) = qnd 

condition-mode outout interface hardware to issue 
signal: x 505 

device: intel 8212 8-bit i/o oort, ic 96 

connect i ons : 

oins 3,5, 7,9, 16, 18,20,22 ( d i (1:8)) = db(l:8) 

Dins 4,6,8,10,15,17,19,21 (do(l:8)) = x505(i:8) 

; i f 8 are rea 

Din 2 (md) = + 5 v 

oin 11 (sto) = qnd 

oin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value b 3 ) 

oin 24 (vcc) - ♦ 5 v 
oin 12 (qnd) = g n q 

16 oit outout oort comoosed of two 8 Dit ports 
x513 is for low order byte 
x521 is for h i a h order oyte 
condition-mode outout interface hardware to issue 
signal: x 5 1 3 

device: intel 8212 8-bit i/o oort, ic 97 

connect i ons: 

oins 3, 5, 7 , 9, 16, t 8, 20 , 22 ( d i (1:8)) = db(l:R) 
oins 4,6,8,10,15,17,19,21 (do(l:8)) = x513(l:8) 

; i f 8 are r eq 

oin 2 (md) = 1 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-bar 

oin 13 (ds2) = out .and. (decode a(0:7) value 64) 
Din 24 (vcc) = + 5 v 
oin 12 (qnd) = qnd 

condition-mode outout interface hardware to issue 
signal: x 52 1 

device: intel 8212 8-bit i/o oort, ic 98 

connect i ons: 

oins 3,5,7,9,16,13,20,22 ( d i ( 1 : 8 ) ) = db(l:8) 
oins 4,6,3,10,15,17,19,21 (do(l:8)) = x521(l:8) 

; i f 8 are rea 

oin 2 (md) = 1 5 v 

oin 11 (stb) = qnd 

oin 1 (dsl-bar) = wr-oar 



pin 13 (ds2) = out .and. (decode a C 0 : 7 ) value 65) 

Din 4 (vcc) - + 5 v 
pin 12 (qnd) = qnd 

condition node inout interface hardware to sense 
siqnal < E Y C H A 

device:intel 8212 8 bit i/o o o r t , i c 9 9 
c onnec t i ons : 

oins 3,5,7,9,16, 18, 20, 22(di (1:8)) = KEYCHA(1:8) 
remainder to 

q r o u n d 

oins 4,6,8,10,15,17,19,21(do(l:8)) = db ( 1 : 8 ) 
oin 2 ( m d ) = qnd 

oin 11 (sto) - qnd 

oin 1 (dsl-bar) = .not. (decode a(0:7) value 8) 
oin 13 (ds2) = i no .and. do in 

oin 24 - + 5 v 

oin 12 = qnd 

condition node inout interface hardware to sense 
signal KEYCHA 

device:intel 8212 8 bit i/o oort , i c 100 
connections: 

oins 3,5, 7,9, 16, 18,20,22(di (9: 16) ) = KEYCHA(9:16) 
remainder to 

ground 

oins 4,6, 8, 1 0, 15, 1 7, 19, 21 (do (9: 16) ) = db(9:l6) 
oin 2 (md) = qnd 

oin 11 (sto) = qnd 

oin 1 (dsl-bar) = .not. (decode a(8:15) value 8) 
oin 13 (ds2) = i no .and. do in 

oin 24 = + 5 v 

oin 12 = qnd 

16 bit output oort composed of two 8 oit ports 
x 5 2 9 is for low order byte 
x537 is for high order oyte 
condition-mode outout interface hardware to issue 
si anal: x529 

device: intel 8212 8 -pit i/o port, ic 101 

connect i ons: 

pins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 
pins 4,6,3,10,15,17,19,21 ( do (1:8)) = x529(l:8) 

tit 8 are req 

pin 2 (md) = ♦ 5 v 

pin 11 (stb) = qnd 

pin 1 (dsl-bar) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value 66) 
Din 24 (vcc) - + 5 v 
oin 12 (qnd) = qnd 

condition-mode outout interface hardware to issue 
siqnal: x537 
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device: intel 8213 8-bit i /o oort / ic 102 

connections: 

oins 3,5,7,9,16,18,20,22 (di(l:8)) = db(l:8) 
pins a, 5,8, 10, 15, 17, 19,21 ( do ( 1 : B ) ) = x537 (l:8) 

; i f 8 ere rea 

pin 2 ( md ) - + 5 v 

oin 11 (stb) - qnd 

oin 1 (dsl-bar) - wr- oar 

oin 13 (ds2) = out .end. (decode e(0:7) value 67) 
pin 24 (vcc) = + 5 v 
pin 12 ( god) = gnd 

condition -node input interface hardware to sense 
signal <E i CH A 

device:intel 8212 8 bit i/o oort,ic 103 
connect i oos : 

pins 3, 5, 7 ,9, 16, 18, 20 , 22(di ( 1 : 8) ) = KEYCHA(l:8) 
remainder to 

qround 

oins 4, 6, 8, 1 0 , 15, 1 7 , 1 9, 21 ( do( 1 : 8) ) = db(l:8) 

oin 2 (md) = gnd 



p i n 


1 1 


( st o ) 


= qnd 




o i n 


i 


( ds 1 -bar ) - . 


not. (decode a(0:7) value 9) 


o i n 


1 3 


( ds 2 ) 


= i no 


. and . do i n 


o i n 


2a 


= +■ 5 v 






O i n 


1 2 


= qnd 






ondition mode 


input 


interface hardware to sense 



si anal < E Y C H A 

device:intel 8212 8 bit i/o oort , i c 104 
connections: 

oins 3,5, 7,9, 1 6, 1 8 , 20 , 22 ( d i (9: 16) ) = KEYCHA(9:16) 
remainder to 

ground 

oins 4,6,8, 10, 15, 17, 19,21 (do(9: 16) ) = db(9:l5) 
oin 2 (md) = gnd 
oin 11 ( 3 1 o ) = gnd 

oin 1 (dsl-bar) = .not. (decode a(8:15) value 9) 
oin 13 (ds2) = inp .and. doio 

oin 24 - ♦ 5 v 
oin 12 • qnd 

condition mode incut interface hardware to sense 
s i qna 1 KE YCHA 

devicetintel 8212 8 oit i/o oort,ic 105 
connections: 

oins 3, 5, 7 , 9, 1 6, 1 8, 20 , 22 (di ( 1 :8 ) ) = KEYCHA(1:8) 
remainder to 

ground 

oins 4, 6, 8, 1 0, 1 5, 1 7, 1 9, 21 (do( 1 : 8 ) ) z do(l:8) 
oin 2 (md) = and 
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pin 11 ( st d ) = and 

oin 1 (dsl-bar) - .not. (decode a(0:7) value 10) 
Din 13 (ds2) = i no .and. doin 

oin 24 = + 5 v 
oin 12 = qnd 

condition “node inout interface hardware to sense 
s i ana 1 KE Y C H A 

devicerintel 8212 8 bit i /o oort/ic 106 
connections: 



oins 


3,5, 7,9, 


16, 1 8 , 2 0 , 2 2 ( d i (9:16)) = KEYCHA(9:lb) 


remainder to 






ground 






oins 


a, b, 8, 10 


, 15, 1 7, 19, 21 ( do(9: 16) ) = db(9:lt>) 


o i n 


2 (md) = 


and 


o i n 


11 (sto) 


= gnd 


o i n 


1 (dsl-bar) = .not. (decode a(8:l5) value 10) 


o i n 


13 ( ds2 ) 


= ino .and. doin 


o i n 


2a - + 5 v 




o i n 


12 = and 




condition node 


inout interface hardware to sense 



signal ^ A N P 0 S 

devicetintel 8212 8 bit i /o oort,ic 107 



connections: 

oins 3, 5, 1 , 9, 16, 1 8, 20, 22(di ( 1 :0) ) = MANP0S(1:8) 
remainder to 

q round 

oins 4 , 6 , 8 , 10, IS, 17,19,21(do(l:8)) = do(l:8) 
oin 2 (fnd) = qnd 
oin 11 (sto) - qnd 

oin 1 (dsl-bar) = .not. (decode a ( 0 : 7 ) value 11) 
Din 13 (ds2) = ino .and. doin 

oin 24 = + 5 v 
oin 12 = and 

condition “node inout interface hardware to sense 
signal ^ANPOS 

device:intel 8212 8 bit i /o oort^ic 108 
connections: 

oins 3, 5, 7, 9, 1 6, 1 8, 20, 22 (di (9: 16) ) = MANP0S(9:16) 
remainder to 

ground 

Dins 4,6,8,10, 15, 17, 19,21 (do(9: 16) ) = db(9:lo) 
oin 2 ( md ) = qnd 

oin 11 (sto) = gnd 

oin l (dsl-bar) = .not. (decode a(8:lS) value 11) 
oin 13 (ds?) = ino .and. doin 
oin 24 = + 5v 
oin 12 = gnd 

condition node inout interface hardware to sense 
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signal KEYCHA 

device:intel 8212 8 bit i/o o o r t , i c 109 
C onnec t ions! 

Dins 3,5,7,9,1b, 18, 20, 22(di (1:8)) = KEYCHA(lsB) 
remainder to 

qround 

oins 4,6,8, 10, 15, 17, 19,21 (do( 1 :8) ) = do(l:8) 

oin 2 ( md ) = qnd 

oin 11 (sto) = qnd 

Din 1 (dsl-bar) = .not . (decode a(0:7) value 12) 
Din 13 (ds2) = ino .and, doin 

oin 2 4 - 1 5 v 

oin 12 = gnd 

condition -node input interface hardware to sense 
s i ana 1 KE YCHA 

device: intel 8212 8 bit i/o oort,ic 110 
connect ions: 

oins 3,5, 7,9, 16, 16,20, 22 (di (9: 16) ) = KEYCHA(9:16) 
remainder to 

grounl 

Dins a, 6, 8, 10, IS, 17, 19,21 (do(9: 16) ) = db(9:lt>) 

Din 2 (md) = and 

oin 11 (sto) = qnd 

oin 1 (dsl-bar) = .not. (decode a(8:lS) value 12) 
oin 13 (ds2) = ino .and. doin 

oin 24 = + 5 v 

pin 12 = qnd 

16 bit out d j t port composed of two 8 bit ports 
x S 4 5 is for low order byte 
x553 is for hiqh order oyte 
condition-mode output interface hardware to issue 
s i ana 1 : x 545 

device: intel 8212 8-bit i/o d o r t , ic 111 

connect i ons: 

oins 3,5, 7,9, 1 6, 1 8,20,22 ( d i ( 1 : 8 ) ) = db(l:8) 

Dins 4,6,8,10,15,17,19,21 C do ( 1 :8)) = x545(l:8) 

; i f 8 are rea 

pin 2 (md) = + 5 v 

Din 11 (stb) = gnd 

oin 1 (dsl-bar) = wr-oar 

Din 13 (ds2) = out .and. (decode a(0:7) value 68) 

Din 2 4 (vcc) - + 5 v 
oin 12 (and) = and 

condition-mode output interface hardware to issue 
signal: x 55 3 

device: intel 8212 8-bit i/o Dort, ic 112 

connections: 

oins 3,5, 7,9, 16,1 8,20,22 ( d i ( 1 : 8 ) ) = db(l:8) 
pins 4,6,3,10,15,17,19,21 ( do ( 1 : « ) ) = x553(l:8) 
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; i f 8 are req 

pin 2 (m j) = + 5 v 

pin 11 ( s t b ) = and 

pin 1 (dsl-har) = wr-oar 

oin 13 (ds2) = out .and. (decode a(0:7) value o9) 
pin 2 9 ( v c c ) = + 5 v 
oin 1? ( qnd ) - gnd 

condition node input interface hardware to sense 
siqnal Y C H A 

device: intel 8212 8 pit i/o o o r t , i c 113 
connections: 

pins 3,5,7,9,16, 18, 20, 22(di (1:8)) = KFYCHA(1:8) 
remainder to 



ground 



pins 9, 6, 8, 1 0 , 15, 1 7, 1 9, 21 ( do ( 1 : 8 ) ) = do(l:8) 
oin 2 ( md ) = gnd 
pin 11 (sto) = gnd 

oin 1 (dsl-bar) = .not. (decode a ( 0 : 7 ) value 13) 
oin 13 (ds2) = ino .and. dbin 
pin 29 - * 5 v 
oin 12 = q n d 
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